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BUENOS MOMENTOS 



'Y' 'T^ cualificado representante de una de 
m I las principales empresas espanolas 
\^^ distrihuidoras de videojuegos nos co- 
municaba recientemente que el movimiento 
en esta franja del software para los microor- 
denadores domesticos estaba superando to- 
das las previsiones. 

Evidentemente estas previsiones estaban 
referidas al reciente descenso de sus precios 
de venta al publico. 

Coma ya habiamos comentado en estas 
mismas lineas en otras ocasiones, tal medida 
no debia limitarse a una simple operacion de 
marketing destinada a invertir la relacion en- 
tre el mimero de ejemplares vendidos y su 
precio unitario. 

Asi, el objetivo final debia ser el de definir 
una terapia de conjunto para el sector. Al- 
canzar un porcentaje de produccion propia 
significativo, responder a las caracteristicas 
especificas del mercado nativo, y fomentar el 
surgimiento de nutridos y solidos grupos de 
programadores son un objetivo obligado de 
cualquiera que pretenda que el software en 
nuestro pais deje de ser un vergonzoso, y ex- 
clusivo, problema de aduanas, licencias e im- 
pu estas. 

En este cuadro, el papel que corresponde 
jugar a las revistas del sector deberia modi- 



ficarse tambien. Existe la necesidad de que 
los lectores de esas revistas y usuarios por 
tanto de los diferentes sistemas, identifiquen 
a los medlos de comunicacion como analistas 
veraces, criticos severos y cualificadores ob- 
jetivos. Solo cumpUendo estos requisitos se- 
ran portavoces reputados por sus valoracio- 
nes. Frente a los usuarios por sufiabilidad a 
la hora de inclinarse por una u otra opcion. 
Frente a los productores y distrlbuidores por 
su andlisis ajeno a la tendenciosidad o a una 
mal comprendida Indulgencia. 

Dicho esto, tambien debiera decirse que la 
problemdtica del software para nuestros sis- 
temas no debe nipuede reducirse al suhsector 
de los videojuegos. En un momento en que 
la informdtica invade mas y mas areas de la 
actividad social y, entre ellas, la educativa, 
no debe pensarse solo en fomentar una uti- 
lizacion unilateral de los pequehos, entre los 
mas pequenos, micros. 

Que productores y distribuidores se plan- 
tearan un apoyo consciente, tecnico, econo- 
mico y publicitario, a los diferentes tipos de 
software educativo y de aplicaciones seria 
tambien una manera de elevar el nivel de los 
usuarios y su capacidad de valorar critica- 
mente sus propias actividades. Ademds de 
necesario seria muy sano. 
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LOS PROGRAMAS 



Una de las funciones que normal- 
mente se emplean al realizar un pro- 
grama nuevoeselcomando LIST, el cual 
nos sirve para ver las lineas de prograina 
que ya hemos introducido e ir depu- 
randu y aiiadiendo nuevas lineas al 
mismo. 

Uno de los grandes inconveiiientes 
del LIST es la poca flexibilidad que 
posee cuando estamos huscando algun 
tipo de informacion dentro del pro- 
grama y no sabemos exactamente 
donde se encuentra. 

Lo que normalmente se hace es !is- 
tar desde el principio del programa, o 
bien a partir de una linea determinada 
sin especificar la linea final. A partir 
de aqui solo es cuestion de ir pulsando 
la tecla de CTRL para raleatizar el 
desfile de Imeas del programa per la 
pantalla, pero normalmente ocurrc 
que nos damos cuenta de que el da- 
to que buscabamos ya ha desaparecido 
per la parte superior de la pantalla y 
en este caso debemos pulsar la tecla de 
STOP y realizar otro nuevo LIST en 
las proximidades de donde lo liemos 
visto aparecer. 

Una vez hemos conseguido localizar 
y detener el listado en la linea ade- 
cuada, observamos que necesitamos 
ver lo que se encuentra 20 o 30 lineas 
mas arriba o mas abajo, y de nucvo 
hay que hacer cl corrcspondiente 
LIST con los problemas mencionados 
anteriorniente. 

Para solventar este inconveniente 
presentamos un programa en lenguaje 
ensamblador que nos permitira avan- 
zar y retroceder por todo el listado del 
programa con solo pulsar una tecla. 
Este programa incorpora un nuevo co- 
mando al BASIC, y lo Uamaremos 
LIST? porque realizara la funcion de 
presentarnos !os listados por las pagi- 
nas. 

Esla ampliacion esta pensada para 
el Commodore 64 y para el C128 tra- 



bajando en modo Commodore 64. 

SINTAXIS DEL NUEVO COMANDO 

Existen cinco fornias de utilizar el 
comando LISTP tal como puede verse 
en el siguiente ejempio: 

1. LISTP 

2. LISTP 20 

3. LISTP 2C^50 

4. LISTP —20 

5. LISTP 50— 

De estas cinco combinaciones solo 
se usa la segunda para los listados pa- 
ginados, aunque las restantes ofrecen 
las niismas prestacioncs que un LIST 
normal sin dar error de sintaxis. 

En la segunda forma, el numero de 
linea indicado sera cl que encabeza la 
primera pagina del listado, siendo este 
de longitud fija c igual a 10 li'neas de 
programa. 

Una vez ha aparecido la primera pa- 
gina es posible avanzar o retroceder 
numeros de linea con solo pulsar las 
teclas ' + ' y ' — '. Cabe mcncionar que 
si en este avance Uegamos a la liltima 
linca de programa, nos aparecera 
una linea separadora, y el hstado se- 
guira por la primera linea del pro- 
grama, dando la sensacion de lista cir- 
cular. Esta particularidad tambien 
ocurre en el caso de que retrocedamos 
y lleguemos a la primera linea, en 
cuyo caso, antes de la linea separadora 
nos aparecera la ultima linea. 

Tanto el avance como el retroceso 
se realii:a en incrementos de 5 lineas 
para permitir un solapamiento entre 
paginas consecutivas. 

La forma de salir dc este estado es 
pulsando la tecla de — ^STOP- — . 

En el caso de que cl programa lis- 
tado tcnga menos de 5 lineas es posi- 
ble que nos aparc/xa repetido varias 
veces el listado sin que ello presentc 
problema alguno. En este caso es pre- 
ferible hacer un LIST o un LISTP sin 
especificar numero de linea. 



El numero de lineas iistadas, asi 
como tos incrementos, es posible mo- 
dificarlos a voJuntad. Para ello debe- 
reis consultar el apartado de modifi- 
caciones- 

DESCRIPCION DEL PROGRAMA 

El programa que presentamos aqui 
hace posible que el comando LIST del 
BASIC posca una gran mejora res- 
pecto al original. El nuevo comando 
se llamara LISTP, siendo el ultimo ca- 
racter el que lo diferencia del LIST 
normal, de forma que nos rccuerde fa- 
cilmente que se trata de presentar por 
paginas el listado del programa que es- 
tamos analizando. 

En este caso no hemos usado la tec- 
nica del wedge para intervenir en la in- 
terpretacion dc los comandos del BA- 
SIC. En su lugar se han realizado las 
modificaciones sobre la misma rutina 
del LIST de forma que no sea nece- 
sario el tener que anadir algiin carac- 
ter especial al inicio del nuevo co- 
mando. El programa que hace posible 
esto. una vez cargado en el ordenador, 
se ubicara en la zona de RAM situada 
entre la ROM del BASIC y el contro- 
lador del video, de forma que nos 
quede aislado respecto a los progra- 
mas que introduzcamos posterior- 
mcntc. Como ya os habreis imagi- 
nado, esta zona cmpicza en la direc- 
cion 49152 '(SCOOO) y es aqui donde 
empieza nuestra ampliacion del co- 
mando LIST. 

Para poder intervenir en la rutina 
del LIST original que se encuentra !o- 
calizada en la ROM del BASIC es ne- 
cesario obtener en primer lugar una 
replica exacta del contenido de la 
ROM del BASIC en la RAM que se 
haila situada j usto debajo de ella y que 
ocupa las mismas posicioncs de me- 
moria. Posteriormente es necesario in- 
troducir anos breves cambios del 
nuevo comando v actuar en conse- 



INPUT 5 



cuencia en caso dc que se Irate del 
nuevo coniando. Una vez se han in- 
traducido estas modificadones. se ac- 
tua sobrc !a direccion numeio I para 
que la CPU pueda leer la RAM en lu- 
gar de la ROM. 

Para poder analizar la posible si- 
multaneidad con otros programas 
cabe destacar que la zona ocupada por 
nuestra ampliacion va desde la direc- 
cion 49152 hasla la 49599 
($C000 — $C1BF), ambas inclusive, y 
hace uso de las direcciones $FB y $FC 
de la pagina cero para las rutinas de 
copia. 



DESCRIPCIOfM DE LAS RUTINAS 

En este apartado est udiare mos 
como funcionan las rutinas creadas y 
cua1 es su efecto sobrc la rutina ori- 
ginal del LIST. Este estudio puede re- 
sultar un poco dificil a los lectores no 
iniciados en la materia, en tal caso 
puede pasarse al capitulo CARGA- 
DOR DE BASIC, introducir el pro- 
grama en el ordcnador y empezar a 
disfrutar de las ventajas del nuevo co- 
niando. 



BNICIO 

La activacion del nuevo comando se 
realiza desde el BASIC haciendo SYS 
49152. 

Esto hace que sea ejecutada la ru- 
tina de INICIO situada en la direccion 
49152 ($C000), la cuai ejecuta las 
subrutinas COPIAR, MODIF y 
ROMRAM antes de devolver el con- 
trol a] BASIC. 



COPIAR 

La subrutina COPIAR se encucntra 
situada a partir de la direccion $C014. 

Consta de dos partes: la primera es 
la encargada de copiar la ROM del 
BASIC, y la segunda realiza lo niismo 
con la del KERNAL. Para realizar la 
copia lo que se hace es leer un byte y 
volver a escribir sobrc el. Para ello es 
necesario preparar un puntero que nos 
indique en cada memento la direccion 
de copiar. Este puntero se encuentra 
localizado en las direcciones SFB y 



$FC y es inicializado con la direccion 
mas baja de cada ROM a copiar, te- 
niendo en cuenta que en la direccion 
SFB se encuentra el byte de menor 
peso y en $FC el byte de mayor peso. 
Para la ROM del BASIC este puntero 
es el $A0OO y para la ROM del KER- 
NAL es la $EOO0. Para realizar dicha 
copia usamos dos subrutinas casi igua- 
Jes, de las cuales solo vamos a comen- 
tar la primera de ellas. 

Las instrucciones encargadas de ha- 
cer la copia (leer y escribir) son las que 
se encuentran en las direcciones 
SCOIE y SC{I2(), las cuales tienen un 
tipo de direccionamiento llamado iu- 
directo-indexado por Y. siendo las 
que nos permitiran copiar bloques de 
256 bytes modificando solamenic el 
valor del registro Y (ver direcc. 
$C022). Debido a que la capacidad de 
cada una deestasdos ROM'S esde 8K. 
bytes, sera necesario copiar varios blo- 
queos de 256 bytes, y esto se consigue 
modificando el byte mas alto del pun- 
tero, con la instruccion INC $FC si- 
tuada en la direccion $C025 hasta lie- 
gar al final de cada ROM. Esto se con- 
sigue en las direcciones $C029 y 
$C03C, al comparar el puntero actual 
con la direccion siguiente a la del final 
de cada ROM. En el caso de la ROM 
del BASIC esta sera la $C0()0 y en el 
caso de la ROM del KERNAL 'sera la 
direccion $0000. 

MODIF 

Esta subrutina es la encargada de 
modificar la rutina del LIST que ahora 
se encuentra en RAM e introducir. de 
esta forma, dos bifurcaciones o saltos 
hacia la nueva rutina del LISTP. Estas 
modificaciones se concretan en intro- 
ducir un JMP $C083 en la direccion 
$A6A() y un JMP $C062 en la direc- 
cion $A7()7. La primera direccion 
tiene por objeto el poder analizar los 
earacteres que entran despues del co- 
mando original del LIST y decidir si 
debe ser un listado normal o pagi- 
nado. La segunda direccion interviene 
en el niimero de Hneas lisiadas. Si se 
trata de un- listado paginado, la rutina 
del LIST solo listara una linea y esta 
estara bajo el control de la nueva ru- 
Ima del USTP. 



ROMRAM 



Esta subrutina se encuentra locali- 
zada a partir de la direccion $C()76 y 
es la encargada de hacer la conmuta- 
cion de ROM a RAM. Para que esta 
conmutacion no sea perturbada por 
ningun evento cxtrano se realiza un 
bloqueo de las interrupciones me- 
diante la instruccion SEl y al final son 
habililadas de nuevo gracias a la ins- 
truccion CLl. 

La conmutacion se realiza modifi- 
cando los bits y 1 del port de la CPU 
cuya direccion es la 1. 

La subrutina termina con un salto a 
la direccion $A474, que cs la encar- 
gada dc devolver cl control al BASIC 
y de que nos aparezca cl READY en 
pantalla. 



MODI Y MOD2 



La subrutina MODI cs la encargada 
de listar solo una linea si LISTP esta 
activado y. en caso contrario. no 
afecta la operacion normal del LIST. 

Por su parte, la subrutina MOD2 
esta situada a partir de la direccion 
SC083 y actua despues dc ser decodi- 
ficado cl comando LIST gracias a la 
bifurcacidn rcalizada en la subrutina 
MODIF. 

Su mision es la de decodificar el 
nuevo comando con la sintaxis co- 
rrecta y en caso de que este no lo sea, 
dar el correspondiente mensajc de 
^sintax error^ — . 

Tal como se ha descrito en el apar- 
tado de sintaxis del nuevo comando, 
este solo actiia en el caso que se es- 
pecifique un solo niimero de linea. Las 
tomas de decision se realizan en la pri- 
mera parte de esta subrutina (direc. 
$C083 aSC0A7). 



LISTP 



Esta subrutina empieza en la direc- 
cion SCOAA y es la encargada de rea- 
lizar el listado de 10 lineas de pro- 
grama y su funcionamiento es tal 
como se describe a continuacion. 

Enipezamos con quitar la direccion 
dc retorno del STACK, ya que la sa- 
lida dc nuestra subrutina debe dcvol- 



6 INPUT 




Codigo Maquina 




ver cl control al BASIC, y a continua- 
cion colocarcmos el indicador {flag) 
LISPAG a 1 para que iios recuercie 
que entramos en niodo paginado. Eslc 
flag sc cncuentra en la direccion 
$COOF y, cLiando no esLa activa la ru- 
tins LISTP, su vaior cs cero. 

A conLinuacion guardamos la direc- 
cion donde se encuentra el puntero 
que nos indica dondc cmpieza la linea 
siguicntc a la solicitada en LINKl. 
Este puntero lo hemos llamado 
— link — porque cs el cncargado de ir 
cncadenando las diferentes lineas de 
programa. Luego sigue un borrado de 
palilalia gracias a la utiiizacion de la 
subrutina CHROUT (SFFD2) de] 
KERNAL y la puesta a cero del con- 
tador de lineas listadasi. A partir de 
eslc momento entramos en el buck 
LISTPI cuya mision es la de listar un 
total de 1(1 lineas de programa. Dentro 
de este bucle se realizan Las siguientes 
comprobaciones: en primer lugar mira 
si ya ha listado la ultima li'nea dc pro- 
grama en cuyo caso debe trazar una li'- 
nea separadora mcdiante la subrutina 
PRILIN y ademas debe colocar el 
puntero de la linea a listar sobre la pri- 
mera linea de programa, es decir, al 
principio del area destinada para al- 
macenar los programas en BASIC. En 
segundo lugar comprueba si hemos lis- 
tado 5 lineas en cuyo caso guardare- 
mos el nuevo puntero para su poste- 



rior utiiizacion si escogemos la opcion 
de avance. 

El anterior bucle finaliza cuando se 
ban listado 10 lineas de programa y a 
partir de este momento el programa 
espera una entrada desde teciado. La 
rutina EXPTEC es la cncargada de 
realizar esta funcion y es capaz de ana- 
lizar las teclas validas para movernos 
por el listado del programa. 

Tal como hemos mencionado ante- 
riormente, podcmos avanzar o retro- 
ceder con solo pulsar las teclas ' + ' y 
' — ' y salir del modo paginado con solo 
pular la tccia de STOP. 

La opcion de avance tiene por ob- 
jeto la de sustituir el puntero de la pri- 
mera linca a listar por el de la quinta 
linea y regresar otra vez al bucle que 
nos lista las 10 lineas, LISTPI. De esta 
forma obtenemos un avance de 5 li- 
neas permitiendo el solapamiento de 
otras 5 lineas. 

La opcion de retroceso tiene por ob- 
jeto la de sustituir el puntero de la pri- 
mera linea a listar por el de la quinta 
linea antes de la primera. Como que 
este puntero lo desconocemos, cs ne- 
cesario buscarlo, y esta es la mision de 
la subrutina LKANT. A continuacion 
regresamos al bucle de lisado LISTPI. 

Por ultimo, la opcion de — STOP — 
borra la indicacion {flag) de listados 
paginados y devuelve el control al BA- 
SIC. 



LKANT 



Esta sabrutina empieza en la direc- 
cion SC157 y cs la que se encarga de 
oblener la direccion donde se encuen- 
tra el puntero de la Iinea actual. Esta 
direccion se cncuentra justo al inicio 
de la linea anterior a la listada. 

Al igual que en el avance, tenemos 
que comprobar cuando hemos Uegado 
a un extremo del listado, en este caso 
es la primera linea. Si esto ocurre, lo 
que dcbemos hacer es desplazarnos 
hasta el final de! programa y empezar 
a retroceder a partir de alii. 

Esta operacion se realiza 5 veces 
para poder retroceder otras tantas li- 
neas y la operacion tcrmina con la ac- 
luacion del puntero dc la primera li- 
nea a listar. 

Para los que deseeis profundizar en 
el tema se han incluido dos tablas que 
complementan el Hstado del programa 
en ensamblador, que son la tabla de 
simbolos y la de referencias cruzadas. 
En la primera se puede apreciar una 
lista de todas las etiquetas {label) usa- 
das durante la confeccion del pro- 
grama, junto con la direccion absoluta 
asignada a cada una de ellas. En la se- 
gunda tabla se observa una repeticion 
de la tabla anterior ampliada con la in- 
formacion para saber como se accede 
a tal o cual etiqueta. Ambas tablas son 
de gran utilidad para este programa. 



00001 


0000 


* ******************** 


00002 


0000 


- * * 


00003 


0000 


;* LISTADOS PAGINADOS 


00004 


0000 


; * por * 


00005 


0000 


i * JOSEP M. GILSGIMENO 


00006 


0000 


■ * * ' 


00007 


0000 


. ******************** 


00008 


0000 




00009 


0000 


; PARA ACTIVAR EL PROGRAMA DESDE ELBASIC DEBE 
HACERSE SYS 49152. 


00010 


0000 




00011 


0000 


; LOS LISTADOS PAGINADOS SE OBTIENEN TECLEANDO 


00012 


0000 


;— LISTPXXXX— SIENDOXXXX EL PRIMER NUMERO DE 
LINEA A VISUALIZAR 


00013 


0000 


1 


00014 


0000 


; CON LAS TECLAS ' + ' Y '-' PODREMOS LISTAR HACIA DELANTE HACIA 
ATRAS 



INPUT 7 



15 0000 
0000 



^ -O 



00017 0000 

00018 0000 

00019 0000 

00020 0000 

00021 0000 

00022 0000 



00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 
00034 
00035 
00036 
00037 
00038 
00039 



OOOG 
0000 

0000 
0000 
0000 



cooo 

C0OO 20 14 

C003 20 41 

CO06 4C 76 

C009 

Cpp9 01 08 

C00B 00 00 

C00D 00 

C00E 00 

C00F 00 

C010 62 C0 



; CON INCREMENTOS DE 5 LINEAS. AL LLEGAR A LA 
ULTIMA LINEA APARECE UNA 

LINEA SEPARADORA Y EL LISTADO COrJTINUA EN LA PRIMERA LINEA 

PARA SALIR DEBE PULSARSE LA TECLA DE —STOP—. 

EL PROGRAMA SE ALMACENA EN LA ZONA DE RAM 
SITUADA DESPUES DE LA ROM DEL 

BASIC (49152- $0000). 

*=$C000 ; ORIGEN DEL PROGRAMA. 



C0 INICIO JSR COPIAR 
C0 JSR MODIF 

C0 JMP ROMRAM 

LINKl .WORD $0801 
LINK5 .WORD 
LINLIS .BYTE $00 
LATRAS .BYTE 
LISPAG .BYTE 
MODPl .WORD 
MODI 



COPIA EL CONTENIDO DE LAS ROM'S SOBRE LA RAM 
INSERTA MODIFICACIONES EN RUTINA DEL— LIST— . 
DEJAN DE TRABAJAR LAS ROM'S Y QUEDA ACTIVADO 
—LISTP— . 



NUMERO DE LINEAS LISTADAS POR PANTALLA (0-10). 
IMUMERO DE LINEAS ANALIZADAS HACIA ATRAS (0-5). 
FLAG DE LISTADOS PAGINADOS (ACTIVADO- $01). 



EL 



, 00040 


C012 


83 C0 


M0DP2 


.WORD 


00041 


C014 




1 




00042 


C014 




1 


¥-*¥¥*^^*¥!f*^***¥¥¥*-V*¥Y¥¥-V-i^¥-V^¥J|^'f'f^*¥¥->f*¥¥¥*.¥¥^ + **^*¥^¥*-Y¥¥¥ 


' 00043 


C014 


A9 A0 


COPIAR 


LDA #$A0 ; COPIA LA ROM DEL BASIC SOBRE RAM. 


00044 


C016 


85 FC 




STA $FC 


00045 


C018 A9 00 




LDA #$00 


00046 


C01A 


85 FB 




STA $FB 


00047 


C01C 


A0 00 




LDY #$00 


00048 


C01E 


Bl FB 


LOOPl 


LDA ($FB),Y 


00049 


C020 


91 FB 




STA ($FB),Y 


00050 


C022 


C8 




INY 


00051 


C023 


D0 F9 




BNE LOOPl 


00(352 


C025 


E6 FC 




IIMC $FC 


J0053 


C027 


AS FC 




LDA $FC 


:3054 


C029 


C9 C0 




CMP #$C0 


::o55 


C02B 


D0 Fl 




BNE LOOPl 


::o56 


C02D 


A9 E0 




LDA #$E0 ; COPIA LA ROM DEL KERNAL SOBRE RAM. 


.:.:057 


C02F 


85 FC 




STA $FC 


.::o58 


C031 


Bl FB 


LO0P2 


LDA ($FB),Y 


::j59 


0033 


91 FB 




STA ($FB)J 


:C06G 


C035 


C8 




INY 


00061 


C036 


D0 F9 




BNE L00P2 


00062 


C038 


E6 FC 




INC $FC 


8 INPUT 









/ Codigo Maquina 




00063 


C03A 


A5 FC 




IDA $FC 




D0064 


C03C 


C9 00 




CMP #$00 




0D065 


C03E 


D0 Fl 




BNE L00P2 




00066 


C040 


60 




RTS 




00067 


C041 










00068 


C041 




^,-k-k-k-k->:-k-k-k-k-k-k-^-i;-k-k-k*-lr-i! 


**^■i■5l;+-^■fc■fc^lr:^*^■i*** + *lt***Js******+****■»;■t;**+****** 


00069 


C041 










00070 


C041 


A9 4C 


^ODIF 


IDA +$4C ; 


PREPARA LOS DESVIOS A LAS NUEVAS RUTINAS DEL 
-LISTP— . 


00071 


C043 


8D A0 A6 




STA $A6A0 




00072 


C046 8D 07 A7 




STA $A707 




00073 


C049 AD 12 C0 




IDA M0DP2 




00074 


C04C 


AE 13 C0 




LDX M0DP2+1 




00075 


C04F 


8D Al A6 




STA $A6A1 




00076 


C052 


8E A2 A6 




STX $A6A2 




00077 


C055 


AD 10 C0 




LDA MODPl 




00078 


C058 


AE 11 C0 




LDXMODPl + 1 




00079 


C05B 


BD 08 A7 




STA $A708 




00080 


C05E 


BE 09 A7 




STX $A709 




00081 


C061 


60 




RTS 




00082 


C062 










00083 


C062 




**:j!******i-** + ;k*Ar****:***'*******************A-**A-**A**;****:t ********** 


00084 


C062 










00085 


C062 


AD 0F C0 


MODI 


LDA LISPAG 


MIRASI EL— LISTP— ESTAACTIVADO. 


00086 


C065 


C9 01 




CMP 4$01 




00087 


C067 


F0 07 




BEQ MODIA 


SALTASI ES ASI. 


00088 


C069 


A0 00 




LDY #$00 


SIGUE CON LA RUTINA ORIGINAL DEL LIST 


00089 


C06B 


Bl 5F 




LDA ($5F),Y 




00090 


C06D 


4C 0A A7 




JMP $A70A 




00091 


C070 


A9 0D 


MODIA 


LDA #$0D 


ENVIA UN RETURN. ,: 


00092 


C072 


20 D2 FF 




JSR $FFD2 




00093 


C075 


60 




RTS 




00094 


C076 




I 






00095 


C076 




****** + **±*±**±***A*******-t**it*-t*****«*******'^A*Ai^*A^******''f****** 1 


00096 


C076 




r 






00097 


C076 


78 


ROMRAM SEI 


BLOQUEA INTERRUPCIONES IRQ. 


00098 


C077 


A5 01 




LDA $01 




00099 


C079 


29 FD 




AND +$FD 




00100 


C07B 


09 05 




ORA +$05 




00101 


C07D 


85 01 




STA $01 


. 


00102 


C07F 


58 




CLI 


DESBLOQUEA INTERRUPCIONES IRQ. 


00103 


C080 


4C 74 A4 




JMP$A474 




00104 


C083 










00105 


C083 




**************************************************************A*-j<* 


00106 


C083 










00107 


C083 


C9 50 


M0D2 


CMP #$50 


MIRA SI DESPUES DE —LIST— SIGUE LA LETRA 'P'. 


00108 


C085 


F0 08 




BEQ 

M0D2A 


SALTASI ES ASI. 


00109 


C087 


C9 AB 




CMP #$AB 


MIRA SI DESPUES DE —LIST— SIGUE UN GUION. 


00110 


C089 


F0 01 




BEQ 

LINORM 


SALTASI ES ASI. 



INPUT 9 





1. - 


_.;:::. 


7Zt.Z 


r:™ 




I 
















00111 


C08B 


60 


LERROR RTS 


■ SALIDA FOR ERROR DE SINTAXIS. 






00112 


C08C 


4C A4 A6 


LINORM JMP$A6A4 


SIGUECON EL LIST NORMAL 






00113 


C08F 


20 73 00 


M0D2A 


JSR $0073 


LEE CARACTER SIGUIENTE A LA LETRA 'P'. 


f 




00114 


C092 


90 08 




BCC M0D2B 


SALTASI ES NUMERICO. 






00115 


C094 


F0 F6 




BEQ LINORM 


SALTA SI NO HAY PARAMETROS 






00116 


C096 


C9 AB 




CMP #$AB 


MIRA SI ES UN GUION. 






00117 


C098 


D0 Fl 




BNE LERROR 


SALTA SI NO ES ASI. 






00118 


C09A 


F0 F0 




BEQ LINORM 


SI LO ES REALIZA UN —LIST— NORMAL 






00119 


C09C 


20 6B A9 


M0D2B 


JSR $A96B 


BUSCA PRIMER NUMERO DE LINEA. 






00120 


C09F 


20 13 A6 




JSR $A613 


BUSCA PRIMERA DIRECT DE LINK Y LEE SEGUNDO 
PARAMETRO. 






00121 


C0A2 


20 79 00 




JSR $0079 


ANALIZA SEGUNDO PARAMETRO. 






00122 


C0A5 


F0 03 




BEQ LISTP 


SALTA SI NO HAY MAS PARAMETROS. 


t 




00123 


C0A7 


4C AF A6 




JMP $A6AF 


SALTA A LA RUTINA NORMAL DEL LIST SI HAY MAS 
PARAM. 






00124 


C0AA 














00125 


C0AA 




I A-**r******A*A***A-J;*' 


* + J^■*■ + ^l;:fcJ;^*-AJ^■A + **A**-tl^***■***********■**** ******** 






00126 


C0AA 










1 
i 




00127 


C0AA 


68 


LISTP 


PLA 


QUITA LA DIRECC. DE RETORNO DEL STACK. 






00128 


C0AB 


68 




PLA 








00129 


C0AC 


A9 01 




LDA #$01 


COLOCA FLAG DE LISTADOS PAGINADOS A '1'. 






00130 


C0AE 


8D 0F C0 




STA LISPAG 








00131 


C0B1 


A6 5F 




LDX $5F 


GUARDA LINK PRIMERA LINEA. 






00132 


C0B3 


A5 60 




LDA $60 








00133 


C0B5 


BE 09 C0 




SIX LINKl 








00134 


C0B8 


8D 0A C0 




STA LINKl + 1 


J 






00135 


C0BB 


A9 93 


LISTPl 


LDA #$93 


BORRA PANTALLA. 






00136 


C0BD 


20 D2 FF 




JSR $FFD2 








00137 


C0C0 


A9 00 




LDA #$00 


NUMERO LINEAS LISTADAS= 0. 






00138 


C0C2 


BD0DC0 




STA LIN LIS 








00139 


C0C5 


A0 01 


LISTP2 


LDY #$01 


COLOCA FLAG A 'NO STRING' 






00140 


C0C7 


84 0F 




STY $0F 








00141 


C0C9 


Bl 5F 




LDA ($5F),Y 


MIRA SI EL LINK ES DE LA ULTIMA LINEA +1. 






00142 


C0CB 


D0 08 




BNE LISTP3 


SALTASI NO LO ES. 






00143 


C0CD 


20 44 CI 




JSR PRILIN 


BUSCA LINK PRIMERA LINEA DE BASIC. TRAZA LINEA 
3EPARAD0RA. 






00144 


C0D0 


A9 0D 




LDA #$0D 


ENVIA UN RETURN 






00145 


C0D2 


20 D2 FF 




JSR $FFD2 








00146 


C0D5 


C8 


LiSTP3 


INY 








00147 


C0D6 


Bl 5F 




LDA {$5F),Y 


BUSCA SIGUIENTE LINK 






00148 


C0D8 


AA 




TAX 








00149 


C0D9 


C8 




INY 








00150 


C0DA 


Bl 5F 




LDA($5F),Y 








00151 


C0DC 


20 E8 A6 




JSR $A6EB 


LISTA UNA SOLA LINEA. 






00152 


C0DF 


EE 0D C0 




INC LINLIS 


INCREMENTA EL NUM. DE LINEAS LISTADAS. 






00153 


C0E2 


A9 0A 




. LDA #$0A 


MIRA SI SE HAN LISTADO 10 LINEAS. 






00154 


C0E4 


CD 0D C0 




CMP LINLIS 








00155 


C0E7 


F0 17 




BEQ EXPTEC 


SALTA SI ES ASI. 






00156 


C0E9 


20 32 CI 




JSR LKSIG 


BUSCA SIGUIENTE LINK. 






00157 


C0EC 


A9 05 




LDA #$05 


MIRA SI SE HA LISTADO LA QUINTA LINEA. 




1 


O INPUT 























W M'.. mmw . / 


B^^^^^^^^^^^^^H^^H^PI uoaigo nnaquma /^^ 




pl3158 


C0EE 


CD 0D 00 




CMP LINLIS 




00159 


C0F1 


D0 D2 




BNE LISTP2 


; SALTA SI NO LO ES. 


00160 


C0F3 


A5 5F 




LDX $5F 


; GUARDA EL LINK DE LA QUINTA LINEA. 


00161 


C0F5 


A5 60 




LDA $60 




00162 


C0F7 


BE 0B C0 




STX LINK5 


' 


00153 


C0FA 


BD 00 00 




STA LINK5+1 




00164 


C0FD 


40 05 00 




JMP LiSTP2 


SIGUEOON OTRA LINEA. 


00165 


C100 




; 






00166 


C100 


20 E4 FF 


EXPTEO JSR $FFE4 


EXPLORATECLADO. 


00167 


C103 


09 2B 




CMP #$2B 


MIRA SI SE HA PULSADO LA TECLA ' + '. 


00168 


C105 


D0 13 




BNE TECl 


SALTA SI NO LO ES, 


00169 


C107 


AE 0B 00 




LDX LINK5 


OOLOOA EL LINK5 EN EL LINKl. 


00170 


C10A 


AD 0C 00 




LDA 










LINK5 + 1 




00171 


C10D 


BE 09 00 




STXLiNKl 




00172 


C110 


8D 0A 00 


LINKl 


STA 

+ 1 




00173 


C113 


86 5F 




STX $5F 




00174 


C115 


85 60 




STA $60 




00175 


C117 


40 BB 00 




JMP LiSTPl 


VUELVE A LISTAR 10 LINEAS. 


00176 


CllA 




I 






00177 


CilA 


09 2D 


TECl 


OMP #$2D 


MIRA SI SE HA PULSADO LA TECLA '-'. 


00178 


cue 


D0 06 




BNETEC2 ; 


SALTA SI NO ES ASI. 


D0179 


CUE 


20 57 01 




JSR LKANT ; 


BUSCA EL LINK DE 5 LINEAS ANTERIORES A LA PRIMERA. 


00180 


0121 


40 BBC0 




JMP LISTPl ; 


VUELVE A LISTAR 10 LINEAS. 


00181 


Ci24 




1 






00182 


C124 


A5 91 


TEC2 


LDA $91 ; 


MIRA SI SE HA PULSADO LA TEOLA DE —STOP—. 


00183 


0126 


09 7F 




OMP #$7F 




00184 


C12S 


D0 D6 




BNE EXPTEO ; 


SI NO ES ASI VUELVE A EXPLORAR EL TEOLADO. 


00185 


Ci2A 


A9 00 




LDA #$00 ; 


BORRA FLAG DE LISTADOS PAGINADOS. 


00186 


C12C 


8D0FO0 




STA LISPAG 




00187 


C12F 


40 74 A4 




JMP$A474 ; 


TERMINA EL— LISTP— Y REINICIALIZA EL BASIC. 


00188 


C132 




» 






00189 


0132 




; *+*+**** A********* A 


**-************A*A*-A***A-*)lr***********jlr-*-**-* + ***** 


00190 


0132 




J 






00191 


C132 


A0 00 


LKSIG 


LDY #$00 ; 


BUSCA LINK DE LA SIGUIENTE LINEA ' 


00192 


0134 


Bl 5F 




LDA {$5F),Y 




00193 


0136 


AA 




TAX 




00194 


0137 


C8 




INY 




00195 


C138 


Bl 5F 




LDA ($5F),Y 


' 


00196 


C13A 


86 5F 




STX $5F 




00197 


C13C 


85 60 




STA $60 




00198 


C13E 


D0 03 




BNE LKSIGl ; 


SI HA LLEGADO A LA ULTIMA LINEA, 


00199 


C140 


40 44 01 




JMP PRILIN ; 


COLOCAR EL LINK A LA PRIMERA LINEA DEL BASIC. 


00200 


C143 


60 


LKSIGl RTS 




00201 


C144 




1 






00202 


C144 


A6 2B 


PRILIN 


LDX $2B ; 


LINK PRIMERA LINEA DEL BASIC. 


00203 


C145 


A5 20 




LDA $20 




00204 


C148 


86 5F 




STX $5F 




00205 


C14A 


85 60 




STA $60 




00206 


C14C 


A2 28 




LDX #$28 ; 


VA A SACAR LA LINEA DE SEPARACION DE FINAL DE 



INPUT 11 















LISTADO. 




00207 


C14E 


A9 AS 


PRILIl 


IDA #$A8 ; 


CARACTER QUE FORMA LA LINEA DE SEPARACION. 




00208 


C150 


20 D2 FF 




JSR $FFD2 






00209 


C153 


CA 




DEX 






00210 


C154 


D0 F8 




BNE PRILIl 






00211 


C156 


60 




RTS 






00212 


C157 












00213 


C157 




■ ****************** -A- ***********v!r******A*******-*A*-*- + A*A**-***Ai;A;**;iir**- 




00214 


C157 












00215 


C157 


A9 05 


LKANT 


LDA #$05 ; 


NUMERO DE LINKS HACIA ATRAS= 5. 




00216 


C159 


8D 0E C0 




STA LATRAS 






00217 


C15C 


AE 09 C0 LKAN0 


LDXLINKl ; 


PREPARA PRIMER LINK. 




00218 


C15F 


AD 0A C0 




LDA LINKl + 1 






00219 


C162 


86 5F 




STX $5F 






00220 


C164 


85 60 




STA $60 






00221 


C166 


E4 2B 




CPX $2B 






00222 


C168 


D0 18 




BNE LKAN2 ; 


SALTA SI NO ES LA PRIMERA LINEA. 




00223 


C16A 


C5 2C 




CMP $2C 






00224 


C16C 


D0 14 




BNE LKAN2 , 


SALTA SI NO ES LA PRIMERA LINEA, 




00225 


C16E 


38 




SEC 


COLOCA EL LINK DE LA ULTIMA LINEA DEL BASIC. 




00226 


C16F 


A5 2D 




LDA $2D 


~ 




00227 


C171 


E9 02 




SBC +$02 






00228 


C173 


85 5F 




STA $5F 






00229 


C175 


8D 09 C0 




STA LINKl 






00230 


C178 


A6 2E 




LDX $2E 






00231 


C17A 


B0 01 




BCS LKANl 






00232 


C17C 


CA 




DEX 






00233 


C17D 


86 50 


LKANl 


STX $60 






00234 


C17F 


8E 0A C0 




STX LINKl + 1 






00235 


C182 




J 








00236 


C182 


C6 60 


LKAN2 


DEC $60 


BUSCA EL LINK DE LA LINEA ANTERIOR. 




00237 


C184 


A0 FE 




LDY #$FE 






00238 


C186 


Bl 5F 


LKAN3 


LDA ($5F),Y 






00239 


C188 


C9 00 




CMP #$00 






00240 


C18A 


.F0 03 




BEQ LKAN5 






00241 


C18C 


88 


LKAN4 


DEY 






00242 


C18D 


D0 F7 




BNE LKAN3 






00243 


C18F 


C8 


LKAN5 


INY 






00244 


C190 


AD 09 C0 




LDA LINKl 






00245 


C193 


Dl 5F 




CMP($5F),Y 






00246 


C195 


F0 04 




BEQ LKAN7 






00247 


C197 


88 


LKAN6 


DEY 






00248 


C198 


4C BCCl 




JMP LKAN4 






00249 


C19B 


AD 0A C0 


LKAN7 


LDA LINKl + 1 






00250 


C19E 


C8 




INY 






00251 


C19F 


Dl 5F 




CMP{$5F),Y 






00252 


ClAl 


F0 04 




BEQ LKAN8 






00253 


C1A3 


88 




DEY 






00254 


C1A4 


4C97C1 




JMP LKAN6 






00255 


C1A7 


88 


LKAN8 


DEY 






00256 


C1A8 


18 




CLC 






12 INPUT 






— — ^^— ^^M^B^^— 





^ 


i^^ 


■ 


^ 


^ 


i^ 


f / Codigo Maquina jg^^ 


00257 


C1A9 98 




TYA 










00258 


ClAA 65 5F 




ADO $5F 








00259 


ClAC 85 5F 




STA $5F 








00260 


ClAE 8D 09 00 




STA LINKl 








00261 


ClBl 90 02 




BCC LKAN9 








00262 


C1B3 E6 60 


; 


INC $60 








00263 


C1B5 A5 60 


LKAN9 LDA 5 


560 








00264 


C1B7 8D 0A C0 




STA LINKl + 1 








00265 


CIBA CE 0E C0 




DEC LATRAS 








00266 


CIBD D0 90 




BNE 


LKAN0 








00257 


CIBF 50 




RTS 










00268 


C1C0 




.END 










ERRORS 


= 0000 














SYMBOL VALUE 














COPIAR 


C014 EXPTEC 


0100 


INICIO 


0000 


LATRAS 


000 E ^' 


LERROR 


C08B LINKl 


0009 


LINKS 


000 B 


LINLIS 


000 D 


LINORM 


C08C LISPAG 


C00F 


LISTP 


C0AA 


LISTPl 


O0BB 


L1STP2 


C0C5 LISTP3 


C0D5 


LKAN0 


0150 


LKANl 


C17D 


LKAN2 


C182 LKAN3 


0186 


LKAN4 


018C 


LKAN5 


018F 


LKAN6 


C197 LKAN7 


C19B 


LKAN8 


01A7 


LKAN9 


01B5 


LKANT 


C157 LKSIG 


C132 


LKSIGl 


C143 


LOOPl 


O01E 


LO0P2 


C031 MODI 


0062 


MODIA 


0070 


M0D2 


C083 


M0D2A 


C0BF M0D2B 


O09C 


MODIF 


0041 


MODPl 


0(310 


M0DP2 


0012 PRILIl 


CUE 


PRILIfM 


0144 


ROMRAM 


0076 


TECl 


CllA TEC^ 


p 


0124 










END OF ASSEMBLY 
















CROSS REFERENCE.. ..PAGE 1 












COPIAF 


f $C014 30 


43 












EXPTEC 


$0100 155 


166 


184 










* INICiO 


$C000 30 














LATRAS $C00E 37 


216 


265 










LERROR $C08B 111 


117 












LINKl 


$0009 34 


133 


134 171 


172 217 


218 229 


234 244 


249 260 264 


LINK5 


$000 B 35 


162 


163 169 


170 








LINLIS 


$C00D 36 


138 


152 154 


158 








LINDRM $C08C 110 


112 


115 118 










LISPAG 


$C00F 38 


85 


130 186 










LISTP 


$C0AA 122 


127 












LISTPl 


$O06B 135 


175 


180 










LISTP2 


$C0C5 139 


159 


164 










LISTP3 


$C0D5 142 


146 













INPUT 13 



■1 

LKAN0 


$C15C 


217 


266 




LKANl 


$CI7D 


231 


233 




LKAN2 


$C182 


222 


224 


236 


LKAN3 


$C186 


238 


242 




LKAiN4 


$C18C 


241 


248 




LKAN5 


$C18F 


240 


243 




LKAN6 


$C197 


247 


254 




LKAN7 


$C19B 


246 


249 




LKAN8 


$C1A7 


252 


255 




LKAN9 


$C1B5 


261 


263 




LKANT 


$C157 


179 


215 




LKSIG 


$C132 


156 


191 




LKSIGl 


$C143 


198 


200 




LOOPl 


$C01E 


48 


51 


55 


L00P2 


$C03I 


58 


61 


65 


MODI 


$C062 


39 


85 




MODIA 


$C070 


87 


91 




M0D2 


$C083 


40 


107 




IVI0D2A 


$C08F 


108 


113 




M0D2B 


$C09C 


114 


119 




MODIF 


$C041 


31 


70 




MODPl 


$C010 


39 


77 


78 


M0DP2 


$C012 


40 


73 


74 


PRILIl 


$C14E 


207 


210 




PRILIN 


$C144 


143 


199 


202 


ROMRAM 


$C076 


32 


97 




TECl 


$C11A 


168 


177 


•. 


TEC2 


$C124 


178 


182 





CARGADOR DE BASIC 

Para poder Ilevar a la practica este 
programa de una forma asequible para 
vosotros, se ha pensado en usar un pe- 
queno programa en BASIC que nos 
cargue el programa en lenguaje ma- 
quina a partir de la direccion 49152. 

Este programa realiza la carga me- 
diante la Icctura dc los valores intro- 
ducidos en las sentencias DATA, Es- 
tas se encuentran situadas en las lineas 
cuya numeracion concuerda con la po- 
sicion fisica que despues tomara la ru- 
tina, es decir, de la 49152 hasta la 
49599. 

A continuacion sale una presenta- 
cidn en pantalla de los comandos que 
se pucden utilizar y en el caso que se 
desee activar la rutina debe hacerse un 
SYS 49152. Para desactivar el co- 
mando LIST? basta con pulsar simul- 
taneamente las teclas dc — STOP — y 
de —RESTORE—. 



1 

20 

30 

40 

50 

60 

70 



90 
100 
110 
120 
130 

140 
150 



160 



REI 



LISTADOS 
PAGINADOS 

per 
JOSEP M. 

GILS 
GIMEIMO 



•k ■}< 'k "k 'Jf 



REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

SUMA-0:AD=49152 

FOR N = TO 447 

READ BY:POKE AD + I\, 

BY;SUMA=SUMA+BY 

NEXT 

IF SUMA 058358 

THEN PRINT "ERROR EN 

LOS DATOS":END 

PRINT^TSHIFT+CLR/ 

H0ME][CTRL+9][11 

ESPACI0S]LISTAD0St2 

ESPACJOS]PAGINADOS[ 



10ESPACIOS][CTRL+0J" 
170 PRINT"[4*CRSR 

ABAJ0][CTRL+9]SYS 
49152[CTRL + 0]ACTIVA- 
LISTPNUM.LINEA-" 
180 PRINT'TCRSR 

ABAJ0][CTRL+9]ST0P/ 
REST[CTRL + 0] 
DESACTIVALl'sTP" 
190 PRINT"[CRSRABAJ0][8 
ESPACI0S][CTRL+9] + 
[CTRL + 01AVANZANUM. 
LINEA" 
200 PR1NT"[CRSRABAJ0][8 
ESPACI0S][CTRL+9]- 
[CTRL + 01RETROCEDE 
NUM. LINEA" 
210 PRINT"[CRSRABAJ0][5 
ESPACI0S][CTRL + 9] 
STOP[CTRL+0]SALEDEL 
MODOPAGINADO" 
49152 DATA32, 20, 192,32,65, 

192,76,118 
49160 DATA192, 1,8, 1,8,10,0,0 
49168 DATA98,192,131,192, 
169,160,133,252 
49176 DATA169, 0,133,251, 
160,0,177,251 
49184 DATA145, 251,200,208, 
249,230,252,165 
49192 DATA252, 201, 192,208, 
241,169,224,133 
49200 DATA252, 177,251, 145, 
251,200,208,249 
49208 DATA230, 252, 165,252, 

201,0,208,241 
49216 DATA96, 169,76, 141, 
160,166,141,7 
49224 DATA167, 173,18,192, 
174,19,192.141 
49232 DATA161, 166, 142,162, 

166,173,16,192 
■"49240 DATA174, 17, 192, 141,8, 

167,142,9 
49248 DATA167,96,173,15, 
192,201,1,240 
49256 DATA7, 160,0, 177,95, 

76,10,167 
49264 DATA169, 13,32,210, 
255,96,120,165 
49272 DATA1,41,253,9,5,133, 
1,88 



I 
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4928p DATA76,116,164,201, 

80,240,8,201 
49288 DATA171, 240, 1,96,76, 

164,166,32 • 
49296 DATA115,0,144,8,240, ( 

246,201,171 
49304 DATA208,241,240,32, 

107,169,32 
49312 DATA19, 166,32, 121,0, 

240,3,76 
49320 DATA175, 166, 104,104, 

169,1,141,15 
49328 DATA192, 166,95, 165, 

96,142,9,192 
49336 DATA141,10,192,169, 

147,32,210,255 
49344 DATA169,0,141,13,192, 

160,1,132 
49352 DATA15, 177,95,208,8, 

32,68,193 
49360 DATA169, 13,32,210, 

255,200,177,95 
49368 DATA170, 200, 177,95, 

32,232,166,238 
49376 DATA13, 192,169, 10, 

205,13,192,240 
49384 DATA23,32,50,193,169, 

5,205,13 
49392 DATA192.208,210,166, 

95.165,96,142 
49400 DATA11,192,141,12, 

192,76,197,192 
49408 DATA32,228,255,201, 

43,208,19,174 
49416 DATAll, 192,173,12, 

192,142,9,192 
49424 DATA141, 10,192,134, 

95,133,96,76 
49432 DATA187, 192,201,45, 

208,6,32,87 
49440 DATA193,76,187,192, 

165,145,201,127 
49448 DATA208, 214, 169,0, 

141,15,192,76 
49456 DATA116, 164,160,0, 

177,95,170,200 
49464 DATA177, 95, 134,95, 

133,96,208,3 
49472 DATA76, 68, 193,96,166, 

43,165,44 
49480 DATA134,95, 133,96, 

162,40,169,168 
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49488 DATA32,210,255,202, 

208,248,96,169 
49496 DATA5, 141, 14,192, 174, 

9,192,173 
49504 DATA10, 192, 134,95, 

133,96,228,43 
49512 DATA208, 24, 197,44, 

208,20,56,165 
49520 DATA45, 233, 2, 133,95, 

141,9,192 
49528 DATA166,46, 176, 1,202, 

134,96,142 
49536 DATA10, 192, 198,96, 

160,254,177,95 
49544 DATA201,0,240,3,136, 

208,247,200 
49552 DATA173, 9, 192,209,95, 

240,4,136 



49560 DATA76,140,193,173, 

10,192,200,209 
49568 DATA95, 240, 4, 136,76, 

151,193,136 
49576 DATA24, 152,101,95, 

133,95,141,9 
49584 DATA192, 144,2,230,96, 

165,96,141 
49592 DATA10, 192,206,14, 

192,208.157,96 



PARA INTRODUCIR 
MODIFICACIONES 



Es posible modificar tanto el nu- 
mero de li'neas listadas por pagina 
como los incrementos hacia dclante o 
hacia atras en el numero de li'neas. Si 
deseais modificar estos valores es ne- 
cesario consultar la tabia 1, donde se 
relacionan los tres conceptos mcncio- 
nados, 



TABLA 1 


Concepto 


Direccion 


Valor 


IMum. lineas listadas 
Increm. en avance 
Increm. en retroceso 


49379 
49389 
49496 


10 
5 
5 



r 



Suscribase ahora a 



<v^^^^^^^^^.v^^^^^^xvvsxxvv^^^^xx^xv>^v^^^^xxv^^^vvvoxvvvxvv.^^^^i^xv^ 




PRECIO DE CUBIERTA PTAS. 375 

MENOS: 20 % de descuento a! suscriptor Ptas. 75 

USTED PAGA SOLO PTAS. 300 (por GJemplaT) 

SUSCRlPCiON ANUAL 12 EJEMPLARES 4.500 Ptas. 
(900 Ptas}, USTED PAGA SOLO 3.600 Ptas 
(entrega a domicilio gratis) 



INPUT le proporciona 

INFORMACION... DIVERSION... FORMACION. 
(un curso compieto de programacion)... 



cammodore 




desc 



^nx^^o 



xu^ 



tec-v 



vbvAoS 



10 



dos 






...LA POSIBILIDAD DE MEJORAR 
SU NIVEL PROFESIONAL... 
EL NIVEL DE LOS ESTUDIOS.., 



■■;£stgsiemptealdia.- 



r 




Recorte y envie este cupon 
^ de inmediato a EDISA, Lopez de Hoyos, 141 
A 28002 Madrid, obien llamenos 
y> alTeif. (91) 415 97 12 

y x^^^xxxvsx^^.^^^wv^^^xvs^^^^xxw| 



INPUT 



BOLETIN DE SUSCRIPCION 



SI, envieme [NPUT COMODORE durante 1 afio (12 cjemplares), si piecio especial de olerts de 3.600 Ptas. AHORRANDOME ;/ 
900 Ptas. sobre el preqio normal Je pqrtada de 12 ejemplares sueltos. (Por (auor, cumpllmenle esle boleHn gon SVIS d^tOS peTSQnilies e ^ 



indrquenos con una (X) ia forma de pago por ualed elegida, metalo en un sobre ^i depositelo en el t>uz5n mSs prSximo) 



_j I 1 1 L_ 



_] I I ftPELUDOS 1 I L_ 



-I J I i I I L_ 



IIOMICIUO I I I 1_ 



_1 L_J I I I I I NUM I 1_ 



J I I I FKOVIKCIA L 



J I I L 



COD. POSTAL 



J TELf . I'll 



4. 



PR07E51ON I L_ 



FORMA DE PAGO ELEGIDA^ Reembolso D Domta1liaci6n Bancaria □ 

Tal6n no-mi nallvo que adjunlo a ffl^fOl d^ ED3SA lU 

I JNSTRUCCIONES DE DOMIC 1 LI ACION BANCARIA (si es elegida por usted) 



Muy senoies mfd5: 

Les ruego que, con cargo a mi cuenta n.° 

Editorial PUM^ETA-AGOSTINI a nombre de. 

I I i I I I 1 BANCO/C ds AHORROS I 1 L. 

1 1 J ' I I I I OIRKCION J I L_I I L 



atiendan, hasta nuevo aviso, el pago de los recibos que les presen!ar3 y 

1__1 I I I I I I I I I I I I I 1 I I I I I I 1 I I I I ^ 

J 1 I I 1—1 1— J I I I I 1 1—1 l_l I I I I _' I I I I 1 V 

J 1—1 I I I I l__i I I I I I I 1 I I I I I i I 1—1 I I ^ 



dB. 



.de 19 



FIRMA 
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% 



a- 
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HO CAU:VLo c?oC 



EL LAPIZ 
OPTICO 



EI lapiz optico es unode los perifericos 
mas espectacu lares de los que es posible 
dotar al Commodore 64. No obstante, 
como veremos en este articulo, sii reali- 
zacion es muy sencilla, gracias a que 
nuestro ordenador ya tiene incorpora- 
dos parte de los circuitos necesarios. 
Tambien veremos unos utiles progra- 
mas para sacar todo el jugo a este peri- 
ferico. 

El lapiz optico es, en apariencia, un 
lapiz normal ai que le falta la punta y 
del que sale un cable. Esta similitud es 
la que le da el nombre al dispositive, 
aunque, como veremos, sus funciones 
son totalmente distintas. 

Lo primero que hay que decir es 
que se trata de un dispositivo electrd- 
nico y optico, ya que relaciona la luz 
que le llega de la pantalla del televisor 
con senales electricas que envia al or- 
denador. Estas senales inforniaran al 
ordenador del punto de la pantalla so- 
bre el que se cacuentra situado el lapiz 
en cada momento. Para poder pro- 
porcionar esta informacion ei orde- 



FIGURA 1 
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UN DISPOSITIVOELECTRQNICO 

Y OPTICQ 

PRINCIPIOSDESU 

^ FUNCIONAMIENTO 

ELCIRCUITO ELECTRONICO 



iVIONTAJE YAJUSTE 



DEL LAPIZ OPTICO 



UNA CALCULADORA EN PANTALLA 

DIBUJANDO EN ALIA RESOLUCIQN 

INTRODUCCION DE MEJORAS 




nador divide a nivel logico la pantalla 
del televisor en una tratna o reticula 
de pequeiiospuntos. Cadapunto tiene 
asignadas dos coordenadas, una ver- 
tical y otra horizontal, de forma simi- 
lar a como hace cuando trahaja en alta 
resolucion. En la figura 1 se represen- 
tan los valorcs que asigna a cada punto 
dc la pantalla. El lapiz trabaja com- 
pletamente con toda la pantalla del te- 
levisor, es decir. incluye tanto cl fondo 
coTTio el borde. 

PRINCIPIOS DE SU 
FUNCIONAMIENTO 

Como hemos dicho, el lapiz optico 
sc encarga de detectar la posicion so- 
bre la que sc cncuentra en la pantalla. 
Para ello se basa en cl hecho de que 
las imagenes de television se forman al 
rccorrer un haz de electrones la pan- 
talla de h'nea en linea y de arriba hacia 
abajo. Al incidir el haz sobre un 
punto, este se ilumina durante un ins- 
tante pequeno de tiempo, aunque a 
nosotros nos parezca que permanecc 
iluminado permanentcmcnte debido a 
que nuestra retina es incapaz de scguir 
variaciones tan rapidas. El haz de 
electrones se mueve a una velocidad 
tal que pasa por loda la pantalla (for- 
mada por 625 lineas) cincaenta veces 
cada segundo. El lapiz, no obstame, si 
es capaz de detectar el momcnto en 
que pasa el haz c ilumina el punto. En 
ese momento envia una senal deter- 
minada al ordenador, que es quien 
esta controlando permanentcmcnte la 
posicion del haz a traves de su chip de 
video (cl VIC 6569). De esta forma, 
sabiendo en que punlo esta el haz en 
cada momento y conociendo en que 
instanle este pasa por la posicion 
donde se encucntra al lapiz, es posible 
determinar su ubicacion en la reticula. 

El Commodore posee una entrada 
especfficamente destinada al lapiz que 
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se encuentra en el PORT 1 de juegos 
denominada LP (light pen); concre- 
tamente es el pin numero 6, que coin- 
cide con la entrada del boton de dis- 
paro del joystick. Un nivel logico «1», 
es decir, 5 V. , indica al ordenador que 
ei lapiz ho ha detectado nada; ahora 
bien, al pasar este a «0» el ordenador 
interpreta que se ha encontrado el 
haz. El encargado de controlar esta se- 
rial es el Video Interface Controller, 
que es el circuito que maneja el haz. 
Al cambiar esta entrada de «1» a «0» 
el chip almacena los valores actuales 
del haz en dos registros internos, uno 
para la fila y otro para la columna. Es- 
tos registros conservan su valor hasta 
que se reciba una nueva transicion y 
pueden ser leidos mientras tanto con- 
sultando las posiciones de memoria 
53267 y 53268, correspondientes a los 
registros 19 y 20 del VIC. 

Si se desea, al delectar el haz, el 
VIC puede generar una interrupcion 
IRQ, con lo que pasara a ejecutar un 
programa en codigo maquina especi- 
fico. 

A traves de la mascara de interrup- 
ciones del VIC se puede establecer si 
la interrupcion se producira o no. Pos- 
teriormente se ilustrara con un pro- 
grama este modo de funcionamiento. 

EL CIRCUITO ELECTROIMICO 

El componente principal de cual- 



quier lapiz optico es el transductar 6p- 
tieo-electrico, es decir, el elemento 
que es capaz de transformar variacio- 
nes luminosas en variaciones electricas 
de forma lo suficientemente rapida. 
Lo mas adecuado por su bajo coste y 
buenas prestaciones es utilizar un fo- 
totransistor. El esquema teorico del 
circuito que se va a realizar se muestra 
en la figura 2. 

El primer bloque es el encargado de 
convertir las senales luminosas en 
electricas y el elemento principal sera 
el fototransitor. La senal que tendre- 
mos a la salida de este bloque sera de 
un nivel bajo y, por consiRuiente., sera 



necesario amplificarla para adecuar el 
nivel a la siguiente etapa. Finalmente 
aparece un generador de pulsos cuya 
salida se conectara directamente al or- 
denador. Se hace necesario este tercer 
bloque para que los impulses tengan 
una forma cuadrada bien definida e in- 
teligibie por el VIC. 

El circuito electronico viene repre- 
sentado en-la figura 3, en el cual se uti- 
lizan dos circuitos integrados que sim- 
plifican notablemente el montaje y lo 
hacen mas fiable. Asimismo, en la fi- 
gura 4 se muestra el circuito impreso 
a tamaho natural, visto por la cara de 
las pistas de cobre, sobre el cual se 
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FIGURA 2 
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puede realizar el montaje de los dis- 
tintos componentes. 

El circuito, para aquellos que ten- 
gan inquietudes electronicas, funciona 
del siguiente modo. El fototransistor 
actxia como un transistor normal NPN. 
con la diferencia de que la corriente 
que pasa por el colector no es contro- 
lada por la corriente de base, sino por 
la potencial luminosa que incide. 
Cuanta mas luz reciba, mayor sera la 
corriente que lo atraviese y por tanto 
mayor tension habra sobre la resisten- 
cia Rl. Una tension alta en Rl sera 
indicativa de que se ha detectado el 
haz de la pantalla. 

Esta tension es amplif icada por IC I , 
que no es mas que un amplificador 
operacional. La ganancia de dicho am- 
plificador esta entre 4 y 6, pudiendose 
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variar actuando sobre !a resistencia de 
ajuste. Este margen de ganancias es ei 
Optimo para un buen funcionamiento 
independiente de las caracteristicas de 
luminosidad de la pantalla del televi- 
sor o monitor. 

La serial amplificada actua sobre la 
entrada de un trigger Schmidt. Este 
circuito basicamente proporciona a su 
salida un valor bajo cuando su entrada 
(formada per una AND de cuatro en- 
tradas) supera un cierto umbral de 
tension. Cuando esta tension de en- 
trada cae por debajo de otro umbral, 
inferior al anterior, la salida pasa a un 
nivel alto. Cuando la serial de entrada 
vuelva a subir, la salida volvera a valer 
un nivel logico «0» y asi se repite el 
proceso. Obtenemos de esta forma 
a la salida un pulso cuadrado cada 
vez que el fototransistor detecte el 
haz, que es lo que nuestro ordenador 
espera del lapiz optico. 

MONTAJE Y AJUSTE DEL LAPIZ 

El montaje no presenta dificultades, 
y es adecuado incluso para aquellos 
lectores que no esten introducidos en 
el montaje electronico. Para los que 
lengan dificultades a la hora de soldar 
o sean principiantes en estos avatares, 
es aconsejable que no suelden los cir- 
cuitos integrados directamente sobre 
la placa sino que utilicen zocalos. Se 
debe prestar atencibn a la posicion de 



los integrados y a las conexiones cort 
el fototransistor y con el ordenador. 
Es conveniente empezar a soldar las 
resistencias y condensador primero, 
dejando los demas componentes para 
el final. 

' El fototransistor tiene ties termi- 
nales, pero solo deben conectarse dos, 
el emisor y el colector, dejando li- 
bre el terminal de base. Este no debe 
ir soldado a la placa de circuito im- 
preso, ya que es el elemei^to que debe 
colocarse sobre la pantalla para detec- 
tar la luz. El fototransistor debera, por 
tanto, conectarse con el resto del cir- 
cuito mediante un cable de la longityd 



que deseemos (aproximadamente 1 
metro). Para evitar que el fototransis- 
tor capte luz por los laterales que 
puede perturbar el buen funciona- 
miento del lapiz, debera introducirse 
en un canuto, que puede ser el de un 
rotulador que previamente habremos 
vaciado. El diametro interior debe ser 
lo suficientemente holgado como para 
que el fototransistor penetre sin difi- 
cultad, ya que se trata de un disposi- 
tive sensible que no es conveniente 
foFzar. La cara con la lupa debe si- 
tuarse a una distancia de aproxima- 
damente 1 cm de la punta del canuto. 
La punta de este debe tener un dia- 
metro de unos 4 mm y si es menor se 
hara necesario ensancharla para que 
penetre una cantidad suficiente de luz. 
Los cables de conexion iran a traves 
del canuto y saldran por el extreme 
contrario a la punta, consiguiendose 
asi una forma estetica. Es conveniente 
fijar los cables de salida de alguna 
forma al canuto, para evitar que el fo- 
totransistor se mueva al manipular el 
lapiz, protegiendolo ademas de posi- 
bles tirones ocasionales. Para esto es 
muy util algiin tipo de pegamento o 
adhesive. En la figura 6 se representa 
esquematicamente como debe cons- 
truirse el lapiz. 

El circuito debe conectarse al or- 
denador a traves del PORT 1 de jue- 
gos, que es el unico port que dispone 
de entrada para el lapiz optico (si lo 
conectaramos al port 2 no sucederia 
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nada, pero no funcionaria). Del port 
debe extraerse la alimentacion de 5 
voltios y !a toma de tierra, que se en- 
cuentran respectivamente en los pins 7 
y 8- Ademas debe entrcgarse la infor- 
macion que de el circuito a la entrada 
LP correspondiente con ei pin 6. Por 
tanto, seran necesarios 3 hilos conduc- 
tores entre el circuito montado y el or- 
denador. Es aconsejable que la lon- 
gitud de dichos hilos sea corta, de me- 
nos de 10 cm, para asi poder poner el 
circuito del lapiz cerca del ordenador 
sin tener demasiados hilos estor- 
bando. En el comentario se encuentra 
sin ninguna dificultad el conector 
apropjado para el Port de juegos. 

El buen funcionamiento del hipiz 
dcpendera del brillo de la pantalla del 
televisor o monitor y del color de la 
misma. En principio el lapiz esta di- 
senado para funcionar con un brillo 
normal que no moleste a la vista. Para 
probar el lapiz debera ejecutarse el 
programa siguiente: 

10 POKE 53280, 1: POKE 

53281,1 
20 PRINT PEEK (53267), PEEK 

(53268) 
30 GOTO 20 

Lo que hace el programa es poner 
la pantalla en bianco, que es el color 
mas luminoso , leer la posicion dc lapiz 
optico e ir imprimiendola. Para ajus- 



tar el lapiz io situaremos en el centro 
de la pantalla y lo iremos desplazando 
lentamente hacia cualquier direccion. 
Si vemos que los valores imprimidos 
no varian deberemos actuar sobre la 
resistencia de ajuste girandola en sen- 
tido horario para asi aumentar la ga- 
nancia del ampiificador. Si aun asi no 
obtenemos respuesta deberemos au- 
menter llgeramente el brillo del tele- 
visor hasta obtener variaciones en la 
lectura. Si incluso con un brillo fuerte 
de la pantalla derecha no se obtiene 
respuesta, se debera desconectar el 
circuito y comprobar su montajc. 

Con e! programa de lectura ade- 
cuado que se incluye posieriorinente, 
el lapiz tiene una resolucion muy 
buena, aproximadamcntc dc unos dos 
pixels en sentido horizontal, que es el 
mas problematico. El peor comporta- 
miento se observa en las cercanias de 
los bordes de la pantalla donde la cur- 
vatura de la misma es mayor y la lu- 
minosidad mas pequena. Para un co- 
rrecto funcionamiento debera ponerse 
cuidado en mantener el lapiz sicmpre 
perpendicular a ia pantalla, ya que de 
otra form.a cometeria un mayor nu- 
mero de lecturas errdncas. 

El color de la pantalla tambien in- 
fluye en el comportamiento del lapiz 
debido a que el fototransistor no res- 
ponde igual a todos los colores. Evi- 
dentementc el bianco, que es la mez- 
cla de todos los colores, es el mas ade- 



cuado. El lapiz tambien funciona bien 
con colores claros, sobre. todo con la 
gama de azulcs, especialmente el cian, 
y de verdes. Es particularmente mala 
la gama de los rojos y naranjas. 
Usando colores distintos al bianco 
puede hacerse necesario aumentar un 
poco el brillo. 

Por iiltimo solo resta decir que el 
montajc del lapii; funcionara con el or- 
denador' VlC-20 de la misma forma, 
sin tener que hacer ninguna modifi- 
cacion en ei circuito. No sucedera lo 
mismo, como es logico, con los pro- 
gramas, ya que estan pensados para el 
Commodore 64. De todas formas no 
es dcmasiado dificil adaptarlos sa- 
biendo que las posiciones de memoria 
donde se guardan las coordenadas del 
lapiz son las 36870 para la coordenada 
horizontal y la 36871 para la vertical. 

RESOLUCION HORIZONTAL 

Mientras que la resolucion vertical 
del lapiz es perfecta, no ocurre asi con 
la horizontal. Esto es debido a que el 
haz barre la pantalla horizontalmcnte 
y asi, mientras en pasar de una linea a 
otra tarda 64 as., es decir, 64 miOo- 
nesimas de segundo, el tiempo que 
tarda en pasar de un punto a olro con- 
tiguo es mucho menor. Por este mo- 
tive, si leemos continuamente una po- 
sicion fija del lapiz, veremos que os- 
cila alrededor de un valor medio que 
es, precisamente, el correcto. 

Habra que solucionar este problema 
de alguna forma. Lo mas adecuado 
sera obtener un valor medio a partir 
de varias lecturas. Esto lo podemos 
hacer bien en BASIC o bien en codigo 
maquina, que sera mucho mas rapido 
enhacerlamedida. Describimosacon- 
tinuacion un programa en CM. que 
aprovecha la interrupcion IRQ 
que se genera al detectar el haz, con 
lo que de esta forma es posihie tra- 
bajar en BASIC y hacer la media si- 
multaneamentc de forma trasparente 
para el usuario. Explicarcmos como 
puede hacerse esto para aquellos que 
se hayan sorprendido al leer que se 
pueden hacer varias cosas simultanea- 
mente y para que asi puedan utilizarlo 
en otras aplicaciones creadas por ellos 
mismos. 
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PROGRAMA PARA OBTENER 
EL VALOR MEDIO 

En ensamblador: 
SEI 

LDA # $88 
STA$D01A 
LDA #$08 
STA $8D 
LDA #$16 
STA $0314 
LDA #$C0 
STA $0315 
CLI 
RTS 

LDA $D013 
TAX 

LDA$D019 
STA $D019 
AND #$08 
BNE $C027 
JMP $EA31 
TXA 
CLC 

ADC $8B 
STA $8B 
LDA #$00 
ADC $8C 
STA $8C 
DEC $8D 
BNE $C04E 
LDY #$03 
ROR $8C 
ROR $8B 
DEY 

BNE $C039 
LDA $8B 
STA$8E 
LDA #: 
STA $8B 
STA $8C 
LDA #; 
STA $8D 
PLA 
TAY 
PLA 
TAX 
PLA 
RTI 

Lei version BASIC cs: 

10 FOR 1=49152 TO 49235 : 



READ A : POKE LA : NEXT 
20 DATA 120,169,136,141,26, 
208,169,8,133,141,169,22, 

141,20,3,169,192,141,21,3 
30 DATA 88,96,173,19.208, 

170,173,25,208,141,25, 

208,41,8,208,3,76,49,234, 

138 
40 DATA 24,101,139,133,139, 

169,0,101,140,133,140, 

198,141,208,23,160,3,102, 

140 
50 DATA 102,139,136,208,249, 

165,139,133,142,169,0, 

133,139,133,140,169,8, 

133 
60 DATA 141,104,168,104,170, 

104,64 

El programa consta de dos partes 
bicn diferenciadas. La primera parte 
se encarga de cambiar los vcctores de 
salto de la interrupcioii IRQ (despues 
se explicara que significa esto), mien- 
tras que la segunda es la encargada de 
tomar las muestras y realizar la media, 
almacenando el resultado en una po- 
sicion de memoria que Juego podra ser 
leida por cualquier programa. 

La primera parte realiza las siguien- 
tes funciones. En primer lugar se in- 
hiben las interrupciones para evitar 
que se pueda producir una interrup- 
cioii mientras se estan modificando los 
vectores de salto de la misma. A con- 
tinuacion se escribe en la mascara de 



interrupciones del VIC para indicarle 
que genere una interrupcion cada 
vez que el haz sea detectado. Segui- 
damente pone un contador a 8, ya que 
realizaremos la media de 8 muestras, 
que sera utilizado por la segunda parte, 
del programa. Y, finalmente, se Gam- 
bia el vector de salto de ta IRQ. Este 
vector indica al ordenador donde se 
debe saltar cada vez que rcciba una 
IRQ . Normalmente este vector 
apunta a la posicidn $EA31, pero no- 
sotros to cambiamos para que salte a 
la segunda parte del programa. Hecho 
esto se permiten de nuevo las inte- 
rrupciones y se retorna el control al 
BASIC. Ahora cada vez que se pida 
una IRQ el control pasara a nuestro 
programa. 

La segunda parte cs la que se en- 
carga de hacer la media de las 8 mues- 
tras. En primer lugar carga en el re- 
gistro X la coordcnada horizontal del 
lapiz y en el acumulador carga el re- 
gistro de interrupciones del VIC, com- 
probando si la IRQ ha sido generada 
por el lapiz o no, ya que puede ser ge- 
nerada tambien por otros circuitos. Si 
no ha sido pedida por el lapiz el con- 
trol pasa a la rutina de IRQ normal, 
es decir, a la posicion SEA31. En caso 
contrario se procede a ejecutar el pro- 
grama que realiza las medias. El valor 
de la coordcnada horizontal se alma- 
cena en dos posiciones consecutivas de 
la memorja, concretamente en $8By 
$8C de la pagina ccro. acnmulandolo 
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al valor que ya habia en esas posicio- 
nes. Luego se decrementa el coiitador 
para ver si ya se han sumado los 8 va- 
lores; si es asi hace la media divi- 
diendo por 8 y la guarda en la posicion 
$8E (142 en decimal), restaurando el 
contador a 8 y poniendo a las posi- 
ciones $8B y S8C. 

Para ejecutar el programa basta ha- 
cer SYS 49152. Aparcntemente no 
pasa nada, pero nuestro programa ya 
esta trabajando y mejorando consi- 
derabiemente la resolucion del lapiz 
en ei eje X. EI valor horizontal del la- 
piz se lee ahora en la posicion 142 y 
no en la 53267. 

Normaimente el lapiz generara 50 
impulses cada segundo, es decir, se 
producira una IRQ y se tomara por 
tanto una muestra, cada 20 miiesimas 
de segundo. Como necesitamos 8 
muestras para obtener la media no po- 
dremos leer la posicion horizontal del 
lapiz en intervalos de tiempo menores 
que 160 miiesimas de segundo. 

Hay que tener en cuenta que cada 
vez que se pulsan las teclas 
RUN/STOP y RESTORE, el vector 
de interrupciones se pone a su valor 
habitual, por lo que sera necesario 
volvcr a hacer el SYS 49152 para reac- 
tivar nuestro programa. 

En la coordenada vertical no es ne- 
cesario realizar un proceso similar 
porquc el valor obtenido directamente 
del registro del VIC ya es suficiente- 
mente exacto. 

CALCULADORA EN PANTALLA 

Una primera aplicacion a la que el 
lapiz puede ir destinado es el control 
de programas y entrada de datos por 
pautalla. Asi es posible ganar en er- 
gonomia en el uso de programas. Un 
ejempio ilustrativo, a la vez que es- 
pectacular, es el control de una cal- 
culadora que aparece en pantalla sin 
mas que sltuar el lapiz sobre la tecla 
que se desea «pulsar» . Permite contro- 
lar la entrada de datos numericos me- 
diante las «teclas» de numeros y el 
programa a traves de las «teclas» de 
funcion que aparecen representadas. 



14 ESPACIOSl" 

15 REM***^DIBUJO DE LA 
CALCULADORA*^**^ 

20 PRINT"[SHIFT+CLR/HOME] 
"TAB(11}"[CTRL+1][CTRL + 
9][ 17 ESPACIOS][CTRL + 
0]" 

30 F0RI = 1 TO 3:PRINT TAB{ 
ll)"[CTRL+9][CTRL+0][ 1 
5 ESPACI0S][CTRL+9] [CT 
RL + 0]":NEXT 

40 FOR 1 = 1 TO 3:PRINT 
TAB(11)"[CTRL -H 9][ 17 
ESPACIOS] [CTRL + 
0]":NEXT 

50 PRINTTAB(11)"[CTRL + 9] 
[CTRL + 21M+ [CTRL + 1] 
[CTRL + 21 M [CTRL + 1] [C 
T R L + 21CE[CTRL + 1] 
[CTRL + 21CLRICTRL + 1] " 

60 FOR 1-1 TO 2: PRINT 
TAB(11)"[CTRL + 9] [ 17 
ESPACIOS][CTRL + 0]" 
:NEXT 



70 PRINT TABdD'TCTRL + 91 
[CTRL + 2]CLM[CTRL + 1] 
[CTRL -h 2]SQR[CTRL + 1] 
[CTRL + 2]X12[CTRL + 1] 
[CTRL+ 2] : [CTRL + 1] " 
80 FOR 1-1 TO 2: PRINT 
TABdD'TCTRL + 9] [ 17 
ESPACIOS][CTRL + 0]":NEXT 
90 PRINT TABdD'TCTRL + 9] 
[CTRL + 2] 7 [CTRL + 1] 
[CTRL + 2] 8 [CTRL + 1] 
[CTRL + 2] 9 [CTRL + 1] 
[CTRL + 2] X [CTRL + 1] " 
100 FOR 1-1 TO 2:PRIfMT 

TABdD'TCTRL + 9][ 17 
ESPACIOS][CTRL -F0]" 
:NEXT 
110 PRINT TAB(ll)'TCTRL+9] 
[CTRL+2] 4 [CTRL+1] 
[CTRL+2] 5 [CTRL + 1] 
[CTRL + 2] 5 [CTRL+1] 
[CTRL + 2]^ [CTRL + 1] " 
120 FOR 1 = 1 TO 2:PRINT 
TABdD'TCTRL + 9][ 17 




10 SYS 49152: POKE 53281, 
lliPOKE 53280dl:VA$ ="[ 
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ESPACIOS][CTRL + 
0]":NEXT 

PRINT TAB(11)"[CTRL + 9] 
[CTRL + 2] 1 [CTRL + 1] 
[CTRL + 2] 2 [CTRL + 1] 
[CTRL + 2] 3 [CTRL + 1] 
[CTRL+ 2] + [CTRL + 1] " 
FOR 1-1 TO 2:PRmT 
TABdD'TCTRL + 9][ 17 
ESPACIOS][CTRL + 
0]":NEXT 

PRINT TABdD'TCTRL + 9] 
[CTRL + 2] [CTRL + 1] 
[CTRL + 2]. [CTRL + 1] 
[CTRL + 2]+/-[CTRL + 1] 
[CTRL + 2] - [CTRL + 1] " 
PRINT TABdD'TCTRL + 
9]( 17 ESPACIOS][CTRL + 
0]" 

WAIT653;1:X-PEEK{142): 
Y-PEEK(53268) 
REfVl****IDENTIFICACION 
DE LATECLA**** 
IF Y<120 AND Y>105 





290 



300 
310 



THENTY=1 
190 IF Y<139 AND Y>131 

THENTY=2 
200 IF Y<163 AND Y>155 

THENTY-3 
210 IF Y<187 AND Y>179 

THENTY-4 
220 IF Y<211 AND Y>203 

THENTY-5 
230 IFY<235 AND Y>227 

THENTY=6 
240 IFX<122 AND X>106 

THENTX-1 
250 IFX<135 ANDX>123 

THENTX-2 
260 IFX<151 AND X>139 ■ 

THENTX-3 
270 1FX<170 AND X>154 

THENTX-4 
280 IFTX-0 ORTY=0 

THEN170 

FOR 1-1 TO 3:P0KE 

55463 + 120*TY+4 nX + l; 

2: NEXT 

GT-(TY-D*4+TX 

IFGT<13THEN0N 

GTGOSUB 350;360;370: 

380;390;400;410;420; 

440;450;460;470:GOTO 

330 

320 ON (GT-12)G0SUB 490; 

500;510;520;540;550; 

560;570;590;600;610;620 
330 FOR 1 = 1 TO 3:P0KE 

55463 + 120*TY+4 nX+h 

1:NEXT 
340 TX-0:TY-0:IF FL=0 

THENGOSUB 720 
345 FL-0:GOTO 170 
347 REM****RUTINAS PARA 

LASTECLAS**** 
350 ME-ME + IMA:RETURN 
360 NA-ME:RETURN 
370 NA-0:ND=0:DP-0:RETURN 

380 NA-0:AC-0: YA=0: 

DP=0: ND-0: RETURN 
390 ME=0:RETLJRN 
400 NA-SQR(NA):RETURN 
410 NA-NA12;RETURN 
420 0P-4:YA=YA+1:IFYA=2 

THEN624 
430 AC-NA:NA-0:AP = OP:FL 



-1:DP-0:ND = 0:RETURN 
440 NU-7:G0T0 700 
450 NU = 8:G0T0 700 
460 NU = 9:G0T0 700 
470 0P=3:YA-YA+1:IFYA=2 

THEN624 
480 AC-NA:NA-0: AP=0P: 

FL-1: DP-0: ND = 0: 

RETURN 
490 NU = 4:G0TO 700 
500 NU = 5:G0T0 700 
510 NU-5:G0T0 700 
520 0P=2;YA-YA + 1:IFYA=2 

THEN624 
530 AC-NA:NA-0: AP=0P: 

FL-1: DP-0: ND-0: 

RETURN 

540 NU-1:G0T0 700 
550 NU = 2:GOTO700 
560 NU-3:G0T0 700 
570 0P-1:YA=YA+1:IF YA=2 

THEN624 
580 AC-NA:NA-0: 

AP=0P:FL=1: DP-0: 

ND-0: RETURN 
590 NU = 0:GOTO 700 
600 DP-1:RETURN 
610 NA--NA:RETURN 
615 REM****TOTALIZACION DE 

OPERACIONES**** 
620 0P-AP:YA-1 
624 IFAPoOP 

THENIT-OP:OP=AP;AP-IT 
630 ON OPGOTO 640;650;660; 

670 
640 AC=AC+NA:GOTO 680 
650 AC=AC-NA:GOTO 680 
660 AC=AC*NA:GOT0 680 
670 AC=AC/NA 

NA=AC:GOSUB 

720:YA-YA- 

1:DP-0:ND=0:FL-1:IF 
GTO24THENNA-0 
RETURN 

IF DP THENND - ND + 1: 
NA-NA4-NU/10t ND:RETURN 
710 NA-NAn0 + NU:RETURN 
715 REM****RUTINA DE 
IMPRESION^*'^* 
720 PRINT 

'TCTRL+2][CLR/H0ME][ 
2*CRSR ABAJO]" TABd2); 



680 



690 
700 



INPUT 25 



730 



VA$:PRINT "[CLR/HOME][ 
2*CRSR ABAJ0]"TAB(12); 
LEFT$(VA$;15- 
LEN(STR${NA))) + STR$(NA) 
RETURN 



El programa ejecuta todas las fun- 
ciones que tiene una calculadoia co- 
rricnte: 

— Suma, resta, muUiplica y divide; 
— -permite ci cambio de signo; 
— elcva al cuadrado y extrae raices; 
— posee una memoria acumulativa; 
— ^notacion exponenciai cuando el re- 

suitado excede de 12 digitos. 

Debido a la estruclura modular del 
programa es posible modificar alguna 
de estas funcioncs e incluir otras, se- 
gun las neccsidades o gustos de cada 
uno. 

Para manejaria basta con posicionar 
el lapiz sobre la tecla que aparece en 
paotalla y que se desea «oprimir». 
Esta es normalmente de color bianco, 
ya que es el mas adccuado para el la- 
piz. Cuando el lapiz esta posicionado 
en la tecla basta con apretar la tecla 
SHIFT del lado izquierdo para indicar 
al ordenador que hcmos hecho una se- 
leccion, Inmediatamente estc res- 
ponde poniendo la tecla de color rojo 
durante un instante, indicandonos asi 
que la tecla ha sido aceptada. Debe 
procurarse situar el lapiz en la parte 
blanca de la tecla y no sobrc la le- 
yenda, ya que al ser de un color mas 
oscuro podn'an producirse errores. 

Las teclas de la calculadora tienen 
asignada la siguiente funcion: 

M + Guarda en memoria el nu- 
mero que aparece en el dis- 
play, sumandolo a lo que ya 
hubiera. 

M Muestra en el display el con- 

tenido de la memoria, bo- 
rrando del mismo lo que hu- 
biera. 

CE Borra una entrada erronea, 

sin destruir las operaciones 
pendientes. 

CLR Borra el display y todas las 
operaciones pendientes, aun- 
que cl niimero guardado en 
memoria se conserva. 

CLM Borra la memoria. 
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SQR Extrae la raiz cuadrada del 
numero que aparece en el 
display, conservando las ope- 
raciones pendientes. 

X 1 2 Eleva el numero del display 
al cuadrado. 

: Divide. 

X Multiplica. 

— Resta. 
+ Suma. 

al 9 Entradas numericas. 

Indica que las cifras siguien- 

les son decimales. 
+/— Gambia el signo del numero 

del display. 

— Tolaliza operaciones. 

Hay que tener en cuenta que el ae- 



tuar sobre las cuatro operaciones ba- 
sicas (+, -, X, :) totaliza las opera- 
ciones pendientes sin icner en cuenta , 
ninguna jerarquia matematica. ' 

Los limites de los numcros mane- 
jados estan fijados por la capacidad de 
calculo del propio ordenador y si se 
sobrepasan aparece el tipico mensaje J 
de error OVERFLOW ERROR? 
Este limite esta fijado en el numero 
1.70141884 E + 38. 

A continuacion aparece el listado 
del programa CALCULADORA. 

Naturaimente lo primero que hace 
el programa es dibujar la calculadora 
en pantalla en color negro para asi lo- 
grar una clara definicion de las teclas. 
Hecho esto. procede a la consulta de 
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ios valores del lapiz aprovechando el 
programa en codigo maquina que ya 
vimos para obtener la posicion hori- 
zontal. Estos valores se comparan con 
unos liniites para conocer la tecla que 
fue seleccionada, en concrete TY in- 
dica la fila en la que esta situada y TX 
la columna. Si ambos valores son nu- 
los se concluye que no se ha detectado 
ninguna tecla. Todo este proceso se 
desencadena si la tecla SHIFT ha sido 
pulsada. Conocidos el valor de TX y 
TY se sabe cual es la funcion a reali- 
zar, pero antes de acceder a ella se 
pone la tecla en rojo. Debido a que las 
funciones estan en subrutmas es muy 
fad! modificarlas para que una tecla 
concreta ejecute una operacidn dis- 




tinta de la prevista inicialmente. 

La variable principal del programa 
es AC, ya que en ella se almacena el 
resultado de los calculos. NA es una 
variable intermedia en la que se va 
guardando el niimero entrado; sobre 
ella actuan las funciones SQR y X f 2. 
Se manejan tambien algunos indica- 
dores o «flag», como YA, indicativa 
de que se ha de totalizer la operacion 
pendiente, y DP, que expresa que es- 
tamos en modo decimal. 

DIBUJANDO CON EL LAPIZ EN 
ALIA RESOLUCIOM 

Esta es quiza la aplicacion mas evi- 
dente e interesante a la que puede ir 
destinado nuestro lapiz. Parece claro 
que un lapiz, sea optico o no, debe 
seivir para dibujar, pues bien, con el 
siguiente programa podremos utilizar 
la pantalla del televisor como si fuera 
una hoja de papel y reahzar en ella vis- 
tosos dibujos utilizando el lapiz op- 
tico. Para evitar que el programa se 
haga demasiado complejo y lento es 
necesario utilizar el cartucho ST 
MON^S BASIC, ya que dispone de 
una potencia grafica mucho mayor 
que el BASIC original del Commo- 
dore, aunque tambien es posible es- 
cribir un programa para dibujar con el 
lapiz sin utilizar dicho cartucho. 
Aparte de la funcion bdsica de dibujar 
punto a punto, se incluyen otras fun- 
ciones para ayudar en la creacidn de 
los dibujos. Estas funciones son las si- 
guientes: 

— LINE: Traza una Imea recta entre 
dos puntos. 

— CIR- Dibuja una circunferencia 
CLE: tomando como datos el cen- 
tre de la misma y su radio. 

— FILL: Rellena una area delimitada 
por una linea cerrada con 
un color determinado. 

Tambien existe ademas la funcion 
PLOT, que va dibujando puntos por 
donde pasa el lapiz. 

5 REM-^***DISENO DE LA 

FLECHA**** 
10 DESIGI^ 0,49152 + 2048 
20 @ B 



30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 



@. ..... BB 

@ BBB 

@. . . BBBBB 

@. BBBBBBBBBBB. 
@BBBBBBBBBBBB. 
@. BBBBBBBBBBB. 
@. . . BBBBB 

@ BBB. . . . 

@. BB. . . . 

@ B. . . . 






240 

250 
260 
270 



280 
285 
290 

300 
310 

311 

312 

314 
316 



INPUT 

"[SHIFT+CLR/HOME][ 

2*CRSR ABAJ0][3*CRSR 

DCHA.ICOLORES DE DIBUJO: 

C1,C2",C1,C2: 

COLOUR 5,0 

HIRES 5,6:MULTI 1, 

C1,C2 

MOB SET 0,32, 1,0,0 

MOB SET 1,32,2,0,0 

TEXT0,0,'T1][CTRL+91PLO 

T[CTRL + 0][COMM+ +ILIN 

E[COMM-F -F]CIRC[C0MIV3 

+ +]FILL[C0MM+ -h]",l, 

1,8 

M0-1:C0 = 1:RL0CM0B 0, 

170,145,3,1 

REM****OBTENCION 

COORDEINADAS'^*** 

NX=0:FOR 1-1 TO 

16:NX=NX+(PEEK(53267)- 

60):NEXT :NX-NX/16:NY=( 

PEEK{53268)-50) 

IF NX<0 OR NY<0 THEN290 

SX-NX^2-h25:SY + NY+38: 

RLOCMOB 0,SX,SY,3,1 

REM****CA[\/1BI0 DE 

IF PEEK{197)-57 

THENC0=1 

IF PEEK(197)-56 

THENCO-2 

IF PEEK(197)=59 
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THENCO-3 

320 IF PEEK{653)=0 

THENSP-0:GOTO290 

330 IFSY<50THEN410 

335 REM***'^EJECUCION DE LAS 
FUNCIONES**** 

340 ON MOGOTO 350,360,380, 
400 

350 IF SP=0 THENSP-1:CX= 
NX:CY-NY:PLOT CX,CY,CO: 
GOTO 290 

355 LmECX,CY,NX,Ny, 

COiCX=NX:CY=NY:GOTO 
290 

360 IFYA-1 THENLINE NX,NY, 
CX,CY,CO:RLOCMOB 1,0,0, 
0,1:YA-0:GOTO290 

370 YA-1:CX=NX:CY-NY:MM0B 
1,0,0,SX,SY,3,1:GOTO 290 

380 IFYA=0THEN370 

390 R-SQR((CX-NX)12 + (CY- 
NY)t2/4) - 

395 CIRCLE CX,CY,R,R*2, 
CO:RLOCMOB 1,0,0,0, 
1:YA=0:GOTO 290 

400 PAINT NX,NY,CO:GOTO 290 

405 REM****CAMBIO DE 
FUNCIOIM**** 

410 FOR l-0TO8:LINEG),l,160, 
l,0:NEXT 

420 ON INT (NX/40)+l GOTO 
430,440,450,460 

430 TEXT 0,0,"[1][CTRL+9]PL 
OT[CTRL+0][COMM+ +]LI 
NE[COMIVI+ +]CIRC[C0M 
M+ +]FILL[COMM+ +]", 
1,1,8;M0=1:G0T0 290 

440 TEXT 0,0,"[1]PLOT[COIVIM 
+ +]rCTRL+9]LINE[CTR 
L+0][COMM+ +]CIRC[C0 
IV1M+ +]FILL[C0MM+ + 
]",1,1,8:M0-2:G0T0 
290 
450 TEXT 0,0/'[l]PLOT[COM 
M+ +]LINE[COMIVI+ +][C 
TRL+9][CIRC[CTRL+0][CO 
MM+ +]FILL[COMM+ + 
]",1,1,8:M0 = 3:G0T0 290 
460 TEXT 0,0,'T1]PLOT[COMM 
+ +]L!NE[COMM+ +]CIR 
CICOMM+ +][CTRL + 9]FIL 
L[CTRL + 0][COMM+ +]",!, 



1,8:M0=4:G0T0 290 

El programa es muy sencillo de uti- 
lizar. Al ponerlo en marcha, nos apa- 
rece una flecha blanca que apunta a la 
coordenada de dibujo. Situando el la- 
piz sobre ella, es posible desplazaria 
en cualquier direccion. El desplaza- 
miento debe electuarse de forma lenta 
para que este siga bien al lapiz. Esto 
se debe a que es necesario hacer una 
serie de medias estadisticas para ob- 
tener una coordenada horizontal es- 
tabie, como ya hemos visto. Inicial- 
mente el programa trabaja con la fun- 
cion PLOT, pero para cambiarla basta 
con desplazar la flecha hacia la parte 
superior de la pantaiJa donde apare- 
cen representadas las posibles funcio- 
nes. Scieccionando una de ellas con la 
flecha y pulsando la tecla SHIFT de la 
izquierda se cambia el modo de fun- 
cionamiento y se pasa al deseado. En 
todo momento, el modo en el que es- 
tamos aparece representado en video 
inverse. A continuacion se detalla el 
funcionamiento de cada funcion: 

— PLOT: Aparece un punto en el lu- 
gar que indica la flecha al 
apretar la tecla SHIFT iz- 
quierda. El trazo que se ob- 
tiene es continuo si la man- 
tenemos apretada, bien sea 
manualmcnte o con SHIFT 
LOCK. 

— LINE; Para trazar una linea recta 
basta con llevar la flecha 
blanca hasta el origen de la 
misma y apretar SHIFT. 
Aparecera una flecha roja 
sobre dicho punto para re- 
cordarnoslo . Llevando 

ahora la flecha blanca al 
otro extremo de la recta y 
apretando SHIFT de 
nuevo, la recta quedara tra- 
zada, desapareciendo la fle- 
cha roja. 

-^CIR- Estando seleccionada esta 

CLE: funcion, lo prime ro que de- 
bemos hacer es seleccionar 
el centro de la circunferen- 
cia, de la manera habitual. 
Aparecera como siempre la 
flecha roja en dicho punto. 
Seleccionando ahora un 



punto por donde deba pasar 
la circunferencia, esta se 
trazara automaticamcnte. 
— -FILL: Para rellenar un area basta 
con seleccionar un punto in- 
terior a la misma con la fle- 
cha blanca y pulsar a conti- 
nuacion la tecla SHIFT. 

El programa permite, ademas, tra- 
bajar en modo multicolor, ya que es 
posible utilizar cuatro colores simul- 
taneamente en la pantalla. Uos de 
esos colores ya estan asignados, y son 
concretamente el negro para el fondo 
de la pantalla y el bianco. Los otros 
dos pueden ser elegidos por el usuario 
al principio del programa. Antes de 
empezar a dibujar, el programa pide 
dichos colores que deben introducirse 
con Ids numeros habituales asignados 
por Commodore, Se utiliza el bianco 
como un color fijo para ganar en ve- 
locidad. Si situamos el lapiz sobre una 
zona blanca la flecha se desplazara ins- 
tantancamente a esa zona. Asi la se- 
leccion de funciones podra hacerse 
con rapidez. La forma de ejegir los co- 
lores de dibujo es la siguiente: pul- 
sando la tecla ^- el color de trabajo 
sera el bianco; oprimiendo «1» pasa- 
remos a utilizar el primer color pre- 
seleccionado; y haciendo lo propio 
con «2» se utilizara el segundo, 

EI programa desarroUado utiliza co- 
mandos propios del cartucho SI- 
MON'S BASIC, por lo que puede re- 
sullar un tanlo extrafio. Lo primero 
que hace es disenar la flecha que se 
movera por la pantalla. A continua- 
cion se piden los colores de dibujo y 
se pasa a la pantalla de alta resolucidn 
en la que se va a trabajar. Sc leen en- 
tonces los valores del lapiz despia- 
zando la flecha segiin lo qne estos in- 
diquen, Asi es posible mover la flecha 
por cualquier lugar de la pantalla. En 
el caso de que se haya pulsado la tecla 
SHIFT se sale del bucle de movi- 
miento y comprueba si se ha efectuado 
alguna nueva seleccion. En tal caso se 
cambia la bandera de selecciones 
(MO) y sc pone en video inverso la 
funcion elegida. En caso de haber pul- 
sado SHIFT y no haber hecho ninguna 
seleccion el programa pasa a ejecutar 
la funcion actual. En caso de PLOT, 
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Hardware 



se ira trazando una Imea que una el 
punto anterior con el actual mientras 
no deje de pulsarse SHIFT. Las otras 
funciones se rcalizan directamente uti- 
lizando comandos de la ampliacion del 
BASIC. Durante el bucle de movi- 
miento tambien se comprueba si al- 
guna de las teclas de color ha side pul- 
sada, pasandose en tal caso a actuali- 
zar el valor de la variable CO que con- 
tiene el numero de color empleado en 
el dibujo. 

Existe un compromise entre la ve- 
locidad del movimiento de la flecha y 
la precision del mismo. La necesidad 
de hacer una media aritmetica pro- 
voca la ralentizacion del bucle de mo- 
vimiento. Podemos acelcrar el movi- 
miento de la flecha si tomamos un nu- 
mero menor de muestras; no obstante 
esto traera consigo un empeoramiento 
de la precision horizontal. For contra 
lograremos aumentarla tomando un 
niimero mayor de ellas, descendiendo 
logicamente la velocidad de desplaza- 
miento de la flecha. Es aconscjable 
evitar dibujar cerca de los bordes, 
dondc la precision es menor como ya 
se ha comentado mas arriba. 



El programa puedc ampliarse segun 
las necesidades de cada uno. For 
ejemplo, puede realizarse un volcado 
de la panlaila de aha resolucion en la 
impresora mediante las instrucciones 
que incluye el SIMON'S para ello. 



ALGUNA MEJORA 
EN EL LAPIZ OPTICO 

En algunos casos puede resultar in- 
comodo el tener que utilizar e[ leclado 
para validar la posicidn del lapiz. Una 
forma de independizar el lapiz del or- 
denador es anadirle al lapiz un pulsa- 
dor soiidario al mismo en una posicion 
comoda para el usuario. Este pulsador 
sustituida la tecla SHIFT en los pro- 
gramas descritos anteriormente. Sera, 
entonces, necesario modificar una sola 
instruccion de los mismos. Concreta- 
mente debera sustituirse las intruccio- 
nes 

XXX WAIT 653,1 
por 

XXX IF PEEK(56321)AND1 THEN 
XXX 




XXX IF PEEK(653)=0 THEN YYY 

por 

XXX IF PEEK(56321)AND1 THEN 

YYY 

donde XXX y YYY son las lineas de 

programa. 

El interruptOT soiidario con el lapiz 
debera ir conectado a los pins del port 
1 numeros 1 , correspondiente a una de 
las entradas del joystick, y 8, que es la 
destinada a masa. 

Ahora podremos controlar los pro- 
gramas con una sola mano, ya que el 
efecto que antes tenia la pulsacion de 
la tecla SHIFT lo ejerce ahora el pul- 
sador del lapiz. Esto results ser en la 
practica mucho mas cdmodo y rapido 
de lo que parece ser a primera vista. 

Finalmente, te informamos que to- 
dos los componentes utilizados en la 
realizacion del lapiz pueden adquirirse 
facilmente en los comercios especiali- 
zados de componentes electronicos. 
El precio aproximado del material ne- 
cesario es de Unas 1.200 pesetas (o al 
menos esto es lo que costo el proto- 
tipo). 

Ram6n Oll^ y Ramon Sole 



GANADORES DE LOS MEJORES DE INPUT COMMODORE 



En el sorteo correspondiente al numero 20 entre quienes escrlblsteis mandando vuestros votes a los 

MEJORES DE INPUT han resultado ganadores: 



NOMBRE 



LOCALIDAD 



Carlos Vazquez Veiga 
J. Jose Montes Huertas 
Mariano Arrese Gonzalez 
Fco. Javier Ros Munoz 
Manuel Martin Gimenez 
Miquel, Soteres Roig 
Antonio Perez Cano 
Victor Martinez Conte 
Santiago Rodriguez Vivas, 
Fco. Javier de las Heras Angel 



La Coruna 

Barcelona 

Madrid 

Barcelona 

Almeria 

TarreQa (Lleida) 

Paiencia 

Zaragoza 

Barcelona 

Valencia 
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Two on two 

Two on two 

Two on two 

Gauntlet 

Goipe en la pequena China 

Howard 

GoIpe en la pequena China 

Labehnto 

Aliens 

Aliens 
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pABL! 



CIP^ 



eM 



^i 



f 




En INPUT estamos convencidos de que aun 

puedes hacer muchas mas cosas con tu 

ordenador. Sin duda, muchos lectores estareis 

utilizando vuestro nnicro para funciones de lo mas 

variadas, en unos casos; pintorescas, en otros; 

mientras que algunos listillos habran podido 

utilizarlo para resolver tareas complejas. Es logico, 

modificando programas y variando los perifericos 

nuestro ordenador puede prestar sus servicios en 

infinidad de facetas. INPUT quiere que esas 
aplicaciones y utilidades a las que has conseguido 

dedicar tu ordenador, sean conocidas por todos 

sus lectores y por eso ha organizado el «Concurso 

de Aplicaciones y Utilidades», en el que puede 

participar cualquiera de nuestros lectores. 






UTILIDADES Y APLICACIONES: Si tu orde- 
nador controla la calefaccion de tu casa, gobierna 
un robot, dirige un pequeno negocio, organiza la 
maqueta de tu tren electrico, o cualquier cosa in- 
teresante u original; envianos informacion grafica y 
listados de tus programas, grabados en un cassette, 
diskette o microdrive, 

Todo ello habra de venir acompanado por un 
texto que aclare cual es su objetivo, el mode de fun- 
cionamiento y una explicacion del comctido que 
cumplen las distintas rutinas que lo componen. El 
texto se presentara en papel de tamano foiio y me- 
canografiado a dos espacios. Noimporta que la re- 
daccion no sea muy clara y cuidada; nuestro equipo 
de expertos se encargara de proporcionarle la forma 
mas atractiva posible. 

UN JURADO propio decidira en cada memento 
que colaboraciones reunen los requisitos adecuados 
para su publicacion, y evaluara la cuantia del pre- 
mie en metalico ai que se hagan acreedoras. 

No olvideis indicar claramente para que ordena- 
dor esla preparado el material, asi como vuestro 
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nombre y direccion y, cuando sea posible, un tele- 
fono de contacto. Entre todos los trabajos recibidos 
durante los proximos tres meses SORTEARE- 
MOS: 

• Un premio de 50.000 ptas. 

• Un premio de 25.000 ptas. 

• Un premio de 10.000 ptas. 

en material microinformatico a elegir por 
los afortunados. 

jNo OS desanimeis!, por muy simples o complejas 
que puedan parecer vuestras ideas, todas estan re- 
visadas con el maximo interes. 

INPUT COMMODORE 

Aribau, 185. Planta 1.= 
08021 BARCELONA 



NO'lA; INPUT no sc responsabiliza dc ia devolucion del ma- 
terial que no vaya acompanado por un sobre adecuado con el 
. franqueo correspoiidiente. 



I 



» 
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EL ZORRO 

Y LAS OCAS (II) 



COMO PROGRAMAR TRABAJOS 



INICiALIZACION 



EJECUTANDOEL PROGRAMA 



TRAZANDOMOVIMIENTOS 



^.OTRA PARTIDA? 



Haz iiso de la ultima parte de la teoria 
para empezar a escribir el juego del Zo- 
rro y las Ocas. 

He aqui la riitina para iiiicializar el 
juego y para trazar moviniientos. 

Esta vez vas a introdudr rutinas de 
iniciali^acion v la rutina principal de 
trazado. Asiinismo, tambien podras 
proponer al jugador otra partida, pero 
en este estadio aiin no podras ejecutar 
con RUN el programa, pues aun hay 
varias rutinas importantes que anadir. 

VISION GLOBAL 

El programa trabaja evaiuando 
cada una de las posiciones del juego 
de acucrdo con la configuracion de las 
fichas. A cada posicion se le adjudica 
un valor numerico en el programa; de 
este modo. el programa es capaz de 




seleccionar el mejor movimiento ve- 
rificando en los resultados el valor mas 
alto, 

El programa opera en tres nivclcs 
cuando planea la jugada. El nivel uno, 
solo proyecta un movimiento — sc 
trata del asi denominado un movi- 
miento — . En el nivel superior del 
juego utiliza el algoritmo alfa-beta 
para ahorrar ticmpo al buscar entrc las 
muchas vias de posibilidades que pro- 
gresivamente se van multiplicando. 
En niveles intermedios, cl programa 
repasa todas las posibilidades existen- 
tes. 

Las rutinas desde la h'nea2010 hasta 
la linea 3000 solo se ejecutan una vez, 
de ahi que esten ubicadas al final del 
programa. Con estas rutinas de poco 
uso situadas al final del programa. las 
rutinas principales puedcn scr ubica- 
das cerca del principio del programa 
para lograr mayor vclocidad. 

INICIALIZACION 

I le aquL las rutinas para inicializar el 
juego. Las direccioncs ban sido DI- 
Mensionadas y las FUNciones DEFi- 
nidas. Esta.s lineas definen el cuadro 
de grafieos: 

3 PRINT '[SHIFT+CLR/HOME][ 



3*CRSR abajo]';CHR$(8) 

4 x=16:F0R Z-p TO 15:P0KE 
646,ZilFz=6TH.ENNEXTz 

5 x=x - 1:P0KE 646;z:PRH\lT 
TAB{5 + x)TSHIFT+n] zorro y 
ocas [SHlFT+n]':NEXTz 10 
POKE 53272;19:G0TO 
2010 

2010 DIM g(4) 

2020 DIM b(31):b(0)-l:FOR 

i-1 TO 31:b(i)-b(i - 1) * 
2:NEXT i 

2025 bx = b(31) ^ 2 - 

b(24):e=le30:h= - le30 

2030 I2 = L0G(2):DEF FN 

a(f)-INT {LOG[f] / 12 + 
.001) 

2040 DIM h$(15,l):DIM g$(l 
);g$(0) = TSHIFT+l][SHIF 
T + @][ 2 espacios]":g$( 
l) = 'TSHIFT4-l][SHIFT-l- 
@][SHIFT + u][SHIFT+v]" 

2045 DIM h$(l):h$(0)-'[ 2 es 
pacios][SHIFT + l][SHIFT 
+ @]':h$(l)-'[SHIFT + u][ 
SHlFT + v][SHIFT+l][SHIF 
T+@J' 

2050 X -0:FOR a = TO 1:F0R 
b-0 TO 1:F0R c = TO 
1:F0R d-0TO l:b$(x, 
0)-g$(d) + g$(c) + g$(b) 
+ g$(a) 

2060 b$(x,l)-h$(a) + h$(b) + 
h$(c) + h$(d):x-x + 
l:NEXTd,c,b,a 

2070 DIM s$(7):F0R a0 TO 6 

STEP2:F0R b=a * 4 TO a * 
4 + 3 

2080 s$(a)=s$(a) + 
TSHIFT+o][SHIFT+p]' + 
RIGHT$(STR$[b],2) 

2081 s$(a + l)-RIGHT$(STR${b 
+ 4), 2) + TSHIFT+o] 
[SHIFT + p]' + s${a + 1) 

2082 NEXT b,a 
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209(3 DIM f$(l);f$(0)-"[SHIFT 
+ l][SHIFT+@][SHIFT+w] 
[SHIFT + x]":f$(l)-"[SHIF 
T + w][SHIFT + x][SHIFT+l 
][SHIFT + @]' 

2095 DEF FN c(b) = (3 AND b) * 
(4 - 2 * (4 AND b)) + 3 * 
(4 AND b) 

La linea 2010 DlMensiona la dircc- 
cion utiiizada para alinacenar las po- 
siciones de las ocas. La linea 2020 nu- 
mera cada casilla del tablero que se 
utilizara en el juego. 

La linea 2030 determina el numero 
de conTiguraciones que pueden ser 
evaluadas por el programa. 0,001 ha 
sido anadklo cuando se ha DEFinido 
la FUNcion A para evilar el redon- 
dcar crrores cuando se uhlizan LO- 
Garitmos. La direccion BS, DlMen- 
sionada en la linea 2040, se utiliza para 
moslrar hneas del tablero que estan 
oeupadas por piezas. F$ se utiliza para 
la picza que representa al zorro y a la 
casilla blanca. y H$ para las ocas y las 
casillas blancas. SS se utihza para de- 
lerminar los numeros dc las casillas. 



AL INICIO 

Esta rutina permite al jugador elegir 
quicn juega, que piezas (si el zorro o 
las ocas) y seleccioaar el nivel de ha- 
bihdad del ordenador. jNo es dema- 
siado dificil — al principio — ! 



2500 
2700 



2710 

2720 
2730 
2740 



2750 



DIM r(1999),s(1999) 

f-l:g(l)-28:g(2) = 29:g( 

3)-30:g(4) = 31:GOSUB 

2710:GOTO1010 

PRINT '[SHIFT+CLR/ 

HOMElquieres ser el zorro 

(s/n)?' 

GET J$:pf-0:IF i$='s' 

THEN2760 

pf-l:IF i$<>'n' 

THEN2720 

$f:INPUT TSHIFT+CLR/ 

HOMEJnivel de juego del 

zorro (l-10)';5f:IFsf<l 

ORsf>10 

THEN2740 

hf- - 131 * (sf-5) - 613 



* (sf = 6) - 1997 * (sf>6) 
2750 PRINT '[SHIFT+CLR/ 

HOMElquieres ser las ocas 

(s/n)?' 
2770 GET i$:pg-0:lF i$-'s' 

THEN2860 
2780 pg=lTF i$<>'n' 

THEN2770 
2790 sg-0:tNPUT TSHIFT+CLR/ 

HOMEJnivel de juego de las 

ocas (l-10)';sg:IFsg<l OR 

sg>10 THEN2790 
2800 hg= - 131 * Csg=5) - 

613 * (sg=6) - 1997 * 

(sg>b):IFhf<hg 

THENhf = hg 
2860 PRINT TSHIFT+CLR/ 

HOME]deseas modificar la 

posicion intcial' 
2870 PRINT T 13*CRSR 

dcha.](s/n) ?' 
2875 GET i$:IF i$ = 'n' 

THEN3000 
2880 IF i$<>'s' THEN2875 
2890 GOSUB 210:GOSUB 

310;PRINT 'quieres mover 

el zorro (s/n)? '; 
2900 GET i$:IFi$='n' 

THEN2930 
2903 IF i$<>'s' THEN2900 
2915 PRINT 's' 
2920 INPUT '[ 8*CRSR 

dchajmover zorro a';fTF 

f<0 OR f>31 THEN2920 
2925 GOSUB 340 
2930 FOR g-1 TO 4:G0SUB 

210:GOSUB 310 
2940 PRINT 'quieres mover la 

oca n.';g(g):PRINT'(s/n)? '; 
2950 GET i$;IFi$='n' 

THEN2990 
2960 IF i$<>'s' THEN2950 
2965 PRINT 's' 

2970 INPUT '[ 8*CRSR 
dchajmover oca a'; 

^ i:GOSUB 340 

2971 IF FN x(i) OR i = f 
THENPRINTTAB(8);'casilla 
ocupada'iGOTO 2940 

2972 IF i<0 OR i>31 
THEN2970 

2980 g(g) = i 




2990 



2995 
3000 



NEXTg:IF FN x(f) 
THENPRINTTAB(8);'hay 
una oca debajo del zorro' 
FOR i-1 TO 1500:NEXT 
RETURN 



La Imea 2700 determina la posicion 
de partida. con las cuatro ocas ocu- 
pando las cuatro casillas de la parte in- 
ferior del tablero, y el zorro ocupando 
la segunda casilla de la linea superior 
izquierda del tablero. 

Una vez que la linea 2700 ha inicia- 
lizado la posicion de partida del zorro 
y las ocas, las lincas 2710 a 2750 dan 
al jugador la opcion dc jugar a ser cl 
zorro y delcrminan quien va a jugar a 
ser el zorro. Las hneas 2760 a 2800 son 
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similares, solo que aqui al jugador sc 
!e da la opcion dc jugar a ser las ocas. 
El juego ha sido disenado de ma- 
nera que permita, o bien ajustar la po- 
sicion de partida, o bien continuar en 
la posicion de partida en la que dejaste 
el juego la ultima vez (necetitaras to- 
mar notas de las posiciones de las fi- 
chaR cuando acabc cl juego) o bien in- 
tentar ganar (;o perder!) desde una 
posicion parlicularmente inleresante. 
Las lineas 2860 a 3000 preguntan si el 
jugador desca mociificar la posicion de 
partida, dan la senal de preparado y 
aseguran que las posiciones elegidas 
sean correctas. 

TRAZANDO MOVIMIENTOS 

La rutina de trazado de movimien- 
tos es una de las mas importantes del 
pro gram a. 

2100 DIM r$(7) 

2110 DEF FN f(b)-({b>3) + 

(.b<28)) ^ (((3 ANDbXS) 

- 1) - 1 




2120 DEF FN g(b)-(b>3) * {((3 
AND b)<3) - 1) - 1 

2130 DEF FN m(a)-b - 2 * (3 
AND b) - 2 - 8 * (b<4 
ORa>l) - (1 + a ^ 7) * 
({3 AND b)=3) + (1 AND 
a) 

2140 DEF FN x(b) = {b-g(l) OR 
b=g(2) OR b-g(3)0R 
b-g(4)) 

2142 DEF FN z{b)- - (b=g(l)) 
- (b-g(2)) " 2 - (b-g(3)) 
* 3 - (b=g(4))"4 

2150 DIM m(3,31).x{31),z(31) 

2160 FOR b-0 TO 31:F0R a=0 
TO 3:m(a,b):FN m(a):NEXT 
a:x(b) = FN f(b);z(b) = FN 
gCb):NEXT h 

Las lineas 2110 a 2160 trazan el plan 
dc movimientos del zorro y de las ocas 
en la direccion M. A lo largo dc este 
plan tambien, se ajustan el numero de 
posibles movimientos del zorro, direc- 
cion X, asi como el numero de posi- 
bles movimientos de las ocas, direc- 
cion Z. Las direcciones son copias de 
las funciones en las lineas 2110 a 2142, 

iOTRA PARTIDA? 

Anade a conlinuacion otra rutina 
«(,Otra parlida?» 

1410 PRINT TAB(8);'deseas 

jugar otra vez (s/n)?' 
1420 GET i$:IF i$ = 's' 

THEN2700 
1430 IF i$<>'n' THEN1420 
1440 PRINT TSHIFT+CLR/ ■ 

H0ME][CTRL+2]':P0KE 

53272, 21:END 

Estas lineas deberian resultarnos ya 
familiarcs, y cntran en accion cuando 
las ocas intentan atrapar aE zorro, o 
cuando el zorro intenta alcanzar el 
lado opuesio del tablero. 

No intentes ejecutar el programa 
con RUN en esta fase, pues aun hay 
que anadirle muchas partes de vital 
importancia. En la siguiente parte del 
articulo, insertaras las rutinas que te 
permiliran ejecutar el juego. 
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Deja que tu ordenador recoja ideas 
antes de comenzar el juego. Con estas 
rutinas podras j ugar el papel del zorro o 
de las ocas y adelaiitarte para improvi- 
sarsu jugada. 

Esta es la tercera y ultima parte del 
juego del Zorro y las Ocas. Las rutinas 
que quedan son las que pcrmitiran al 
ordenador jugar la parte, ya sea del 
zorro o de las ocas. De hecho se puede 
programar al ordenador para que jue- 
gue anibas partes a la vez, cuando 
compita contra si mismo, o bien pue- 
des programarlo para que no jucgue a 
ser ninguna de las figuras, y jugar tu 
eontra algun amigo utilizando el or- 
denador en lugar de un tablero y fi- 
chas, 

210 p = b(g(l)) + b(g(2)) + 

b(g(3)) + b(9(4)) 
220 x=f:IF p<b(31) THEN p-p 

- hx:x=31 - f 
230 p=p ' h(x):RETURN 
250 f = FN a(ABS(p)) - 31 :b-p/ 

b(f):IF b<0 THENb-b -F 

bx:f=31 - f 
260 FOR a = l TO 4:9(a)-FN 

a(b):b=b - b(9(a)): NEXT 

a:RETURN 



N-/ 



Estas son dos dc las rutinas mas im- 
portantes del programa. La rutina que 



comienza en la li'nea 210 hasta la linea 
230 evalua la posicion de juego resu- 
miendola en un niimero de una sola ci- 
fra. Luego, una vez que el programa 
ha decidido el valor del mejor movi- 
miento, ha de convertir ese niimero en 
un movimiento o en un juego de po- 
siciones para las fichas. Las lineas 250 
a 260 transforman el valor simple en 
el juego de valores necesarios para po- 
sicionar las fichas. 

Estas subrutinas son llamadas con 
frecuencia durante el programa, de 
manera que deberan. estar colocadas 
correctamente al inicio del mismo, 

EL MOVIMIENTO DEL ZORRO 

1010 GOSUB 210 

1020 GOSUB 310:GOSUB 250 

1030 IF f>27 THENPRINT 

TAB(8);'ha ganado el 

zorro':GOTO 1410 
1032 GOSUB 410:IFv-h 

THENPRINT TAB(8);'han 

ganado las ocas':G0TO 

1410 
1040 IF pf THENPRINT TAB(8); 

'estoy pensando...':GOTO 

1110 
1050 INPUT '[ 8*CRSR 

dcha.lmover el zorro a';b 




1055 



1060 



1070 



nil 



1112 
1120 
1122 



GOSUB 340;IF h- - 1 

THENPRINT TAB(8);'han 

ganado las ocas':GOTO 

1410 

FOR a = TO x(f):x-m(a, 

f):IF x-b THEN IF NOT Ff 

x(x) THENf=bGOSUB 

210:GOTO 1200 

NEXTa:PRINT TAB(8); 

'movimiento ilegal':GOTO 

1050 

l = sf:m^sf:v(m)^e * mdF 

m>4THENF0R a = TO 

hf:r(a) = 0:NEXTa 

GOSUB 1120:GOTO 1200 

IF 1-1 THEN410 

IF Km - 2THENG0SUB 

1610:IF V<>0 

THENRETURN 




1130 1 = 1 ~ l:V(l) = h * 

l:a(l)=x(f}:f(l)-f 
1140 f-m(a(l),f(l)) 
1150 IF FN x(f)<>0 

THEN1160 
1155 GOSUB 1320:IF\/>v(l) 

THENv(l)=\/:(l)=f:IF v/>v( 

+ 1) THEN f-f(l):l = l + 

LRETURN 
1160 a{l) = 3(1) - l:IFa(l)> = 

THENU40 



JUGANDO A NIVELES SUPERIORES 
LARUTINADELMOVIMIENTO 



JUGANDO A NIVELES SUPERIORES 
USANDOELLOGARITMO 



DELZORRO 



ALFA-BETA 



MOVIENDO LAS OCAS 



USO DE LAS TABLAS ^<HASH-CODE> 



ELIGIENDO EL MEJOR MOVIMIENTO 



PARA UN JUEGO MAS 



1170 v = v(l):f = f(l):l = l + 1:IF ■ 

l-m THENf=p(m - 
1):G0SUB 21p:RETURN 

1172 IF l<m - 2 THEN GOSUB 
1510:RETURN 

1180 RETURN 

Lt(s ii'neas 1(120 a 1180dirigenei nio- 
vimiento del zorro. La rutina utiliza la 
rutina de visiializacion del tablcro 
para mostrar cl estado actual del ta- 
blero, seguidamente pasu a compro- 
bar si el zorro ha ganado en la li'nea 
1030. En la linea 1032 comprueba si 
hay alli', al nicnos, iin movimiento le- 
gal que pueda realizar el zorro (de lo 
contrario, ganan las ocas). 





Si cl jugador es quien Eleva el cmi- 
'trol de las ocas, las lineas 1050 a 1070 
se encargan de introducirlo en el or- 
denador y de comprobar que cl mo- 
vimiento efecluado s.ea efeetivameiite 
correclo. Si, por otra parte, es el or- 
dcnador el que controla al zorro, las 
Kneas 1 1 10 a 1112 son las cncargadas 
de llevar a cabo el movimiento. El mi- 
mero de pliegues que el programa ob- 
serva, M, y cl pliegue actual conside- 
rado. L, son colocado:^ en la linea 
1110. Las Ii'neas 1120 a 1.180 son una 
subrutina que evalua el mejor movi- 
miento. 

Se utilizan cuatro direcciones en la 
rutina para cl mejor movimiento: A 
contiene el numero de movimicntos 
que aun pueden ser intentados: V, el 
mejor resultado hasta el momeuto; P, 
cl movimiento que ha conseguido cstc 



resultado. y F, la poi^ieion previa del 
zorro. 

WIOVIEtMDO LAS OCAS 

500 V- - 1:F0R c-1 TO 
4:g-gCc): IFz(g)<0 
THEIMNEXT :RETURN 
502 FOR a = 0TOz{g):x = m(a, 
g):v-v AND (FN x(x) OR 
x=f):NEXT :NEXT :RETURN 
1200 GOSUB 310:GOSUB 250 
1202 IFf>27 THENPRINT 
TAB(8);'ha ganado el 
zorro'iGOTO 1410 
1204 GOSUB 500:IF V 

THENPRINTTAB(8);'ha 
ganado el zorro':GOTO 
1410 
1210 IF pg THENPRINT TAB(8); 
'estoy pensando...':GOTO 
1310 
1220 JNPUT 'I S^CRSR 

dchadque oca vas a mover'; 

1225 GOSUB 340 

1230 c = FN z{g):iF c = " -- 



124(9 
1245 

1250 
1260 
1270 
1280 
1310 



1312 
1320 
1322 



1324 
1330 

1340 



THENPRINTTAB (8);'no 

hay ocas en";9:G0T0 1220 

INPUT TS^CRSR 

dcha.jhasta donde';! 

GOSUB 340:IF i= - 1 

THENPRINTTAB(8);'el 

zorro ha ganado'iGOTO 

1410 

IFFN x(i) THENPRINT 

TAB(8);'no encima de otra 

oca':GOTO 1220 

IF j-f THENPRINT TAB(8); 

'no encima del zorro':GOTO 

1220 

FOR a= - ITO z(g)dF 

a>=0THENIF m(a,g)-i 

THEN g(c)-i:GOTO 1010 

NEXTa:PRINTTAB(8); 

'movimiento ilegal'iGOTO 

1220 

l = sg:m=sg;v(m)^h * mdF 

m>4 THENFOR a-0 TO 

hf:r(a)=0:NEXTa 

GOSUB 1320:GOTO 1020 

(F f=l THEN510 

IF Km - 2 THENGOSUB 

1610;IF v<>0 

THENRETURIN 

1 = 1 - l:v(l)-e * 1:0 = 1 

c(l)=C:f(l)-g(c):a(l)-0:IF 

a(l)>z(g(c)) THEN1362 

b = m(a(l);f(!)):x = FN 

x(b):e(c)-b : IFx OR b-f 
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THEN1360 
350 GOSUB 1120:c=c(l) 
355 IF \/<v(l) 

THENv(l)=v:p{l)-g(c) -f c 

* 32:IFv<\/(l + 

l)THENg(c)-f(l):l-l + 

1:RETURN 
360 a{l)-a(l) + 1:IF 

a{l)<-z(f{l)) THEN1340 
362 g(c)=f(l):c-c + l:IFc<5 

THEN1330 

V = V(I):I= I + 1:IF Nm 

THENc = INT (p(l - 1) / 
32):g(c)-p(l - 1) AND 
31:GOSUB210;RETUR[M 
IF l<m - 2THENG0SUB 
1510:RETURN 
RETURN 



370 



372 



380 



La rutina que va de la linca 1200 a 
a linca 138(1 dirige el niovimienlo de 
as ocas. Hay rutinas para el caso en 
lue el JLigador controla las ocas — li- 
iCQS 1220 a 1290—, y para el caso en 
|ue es cl ordenador quien controla las 
)cas— Iineas 1320 a 1380. 

LOS MEJORES MOVIMIENTOS 

U0 \/-h:FOR a-x(f) TO STEP 
- l:x-m(a,f):IF FN x(x)<0 
THENNEXT d = lrRETURN 

b-f:f-X:GOSUB 

210:V = p:f = b:l = l:RETURN 

v-e:FOR c=l TO 

4;g-g(c):IF - bg>v 

THEN530 

FOR a-0 TOz(g):x-m(a, 

g):IF FN x{x) OR x-f 

THENNEXT :G0TO 530 

\/-b(x) - b(g):d^c:b=x 

NEXT 

C:g=g(d):g(d)-b:GOSUB 

210:V-p:g(d) = g:RETURN 



■ 20 
il0 

i20 



i28 
)30 



Estas rutinas estan rclacionadas con 
;1 «un movimiento». en otras pala- 
)ras, en esta fase, el ordenador solo 
)rograma un solo movimiento cuando 
:sta buscando el mcjor movimiento. 

Las li'neas 410 a 420 repasan todos 
oji posibles moviniicntos que puede 
ealizar cl /.orro; utilizando la direc- 
ion M de trazado. coloca la subrutina 
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comenzando en la linea 2,110 (ver an- 
terior). La subrutina devuelve un va- 
lor de P, configuracion posterior ai 
mejor inovimiento, y V, evaluacion 
posterior al mejor movimiento. 

Las lineas 5.10 a 530 son una rutina 
similar, pero en esta ocasion, el or- 
denador calcula cual es cl mcjor mo- 
vimiento para las ocas. P y V estan tl- 
jadas de igual modo que en la rutina 
previa. 

En ambos casos, GOSUB 210 rc- 
coge el mejor movimiento de entre to- 
dos los evaluados. 

LA TABLA HASH-CODE 

1510 GOSUB 210:c-p 

1520 c-c- IIMT ((c / hf -^ c) - ) 

c) * hfdFc<0 OR o-hf 

THEN1520 
1550 FOR a-c TO c + 4: IF 

r(a)<>0 AND r(a)<>p 

THENNEXT :RETURN 
1560 rCa) = p:s(a)-V:RETURN 
1610 GOSUB 210:c = p 
1620 c-c- INT ((c / hf + c)- ) 

c) * hf:IFc<0 OR C>=hf 

THEN 1620 
1650 FOR a-c TO c +4dF 

r(a)<>0 AND r{a)<>p 

THENNEXT :\/=0:RETURN 
1660 V- - s(a) * 

(r(a) = p):RETURN 

En los niveles supcriorcs de juego 
preferiras aplicar el algoritmo alfa- 
beta que ya hcmos visto. En efecto, ya 
has utilizado previamente el algoritmo 
come parte de las rutinas de los mo- 
viniicntos del zono y del dc las ocas. 
Antes de aplicar el algoritmo, com- 
prueba si es conveniente utilizar el al- 
goritmo (;,el nivel de juego elegido es 
suficientemente alto tomo para garan- 
tizar su utilizacion?). 

La rutina que va de la li'nea 1110 a 
la linea 1150 controla al zorro mien- 
tras que la rutina que va de la linea 
1310 a la linea 1350 controla las ocas. 

El algoritmo se aplica en el ultimo 
test IF al final de las lineas 1150 y 
1350, despues de que V (M) ha sido 
colocado al nivcl apropiado en las li- 
neas 1110 y 1310. 



El algoritmo alfa-bcta es mas efi- 
ciente si el ordenador considera pri- 
mero cuales son los mejores movi- 
mientos — para las ocas, la casiila del 
niimero mas alto en cada fila de cuatro 
casilias. y para e! zorro, la casiila 
abierta para el y que este mas ccrcana 
al final de las ocas. 

El algoritmo alfa-beta se utiliza con- 
juntamente con una tecnica conocida 
como '^haxh-coding» con el fin de con- 
feccioiiar y utilizar una tabia dc los 
movimientos ya considcrados. Hush- 
coding permite al ordenador compro- 
bar rapidamente si el movimiento ya 
ha sido considerado. Cuanto mas larga 
sea la tabIa de hash-coding dentro del 
programa, mas rapidamente se debe- 
n'a poder ejecutar el programa. 

La tabIa se inicializa en las lineas 
2500. 2750 y 2800. Hay «meiores va- 
lores» teoricos para las dimensiones 
dc las dirccciones que sostienen las ta- 
blas — linea 2500 — . Las direcciones 
han sido DlMensionadas lo mas largas 
posible, indicando la mcmoria RAM 
disponible en cada ordenador. 

La labia es puesta a cero en las li- 
neas 1110 y 1310, los contcnidos se ve- 
rifican en las lineas 1122 y 1322, y se 
colocan en las lineas 1172 y 1372. 

La subrutina dc vcrificacion se ini- 
cia en la linea 1610 y la subrutina de 
iijuste. en hi linea 1510. 
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FREDDY Y LA ARANA 
DE MARTE (I) 



LATRAMA 



COMO SE PROGRAMA EL JUEGQ 

QBTENCIQN DE LOS GRAFICQS 

FREDDY. FLECHAS, GLOBOS 

Y LA ARANA 



Abandona a su destino a Freddy y a la 
voraz araiia de Marte mientras te ocu- 
pas de reconslruir uno de los juegos elec- 
tronicos mas tipicos. En el siguiente ar- 
ticulo tendras el programa completo. 

«Freddy y la arana de Marte», o «La 
pesadilla del limpiador de cnstales», 
es un juego electronico que, para ofre- 
certelo completo, nos va a ocupar dos 
articulos, pero a cambio vas a conocer 
un clasico de los juegos electronicos. 

En este primer articulo se estable- 
cen los graficos y se inicializa el pro- 
grama. En el siguiente, obtendras el 
programa entero con solo coser las ru- 
tinas entre si. 

EL JUEGO 

Ei punto de partida para disenar un 
juego es, claro esta, una idea: una 
trama o un argumento puedeii servir 
de base para construir el juego. 

En el que vamos a examinar, 
Freddy es un limpiacristales que tiene 
panico de las aranas. Ni las consultas 
al medico ni a innumerabies especia- 
listas han logrado que supere su fobia. 
Tan grave es esta, que ahora le da per 
sonar pcsadillas sobre una arana mar- 
ciana, enorme. horrible y voraz, o por 
tener suenos con globos y lances con 
el tiro al arco, su deporte favorito. 



A menudo se ha sorprendido su- 
dando a chorros, despierto despues de 
haber soiiado que estaba acorralado, 
subido a su escalera y armado no de 
su habitual cubo de la limpieza sine 
de un arco y una aljaba repleta de fle- 
chas, Toda su ansia se habia conceii- 
trado en hacer explotar esos globos te- 
mibles que, si logran llegar hasta la 
jaula de la araiia que pende sobre su 
cabeza, esta perdido, pues abriran las 
puertas y liberanm al no menos te- 
mido aracnido. 

O te afanas en ayudar al pobre 
Freddy o su final es tan seguro como 
apetitoso resaltara a la arana el desa- 
yuno que imaginas. 

Hasta aqui el argumento o la trama. 
En el marcador se anotaran tantos 
puntos cuantos globos se hayan con- 




n 



seguido explotar. Pero las pesadillas 
no suelen acabar tan facilmente: la 
tortura del pobre limpiador de venta- 
nas aumenta de grado a medida que 
los giobos pasan delante de el cada vez 
mas veloces. Con que falles en la des- 
truccion de tres de estos, la arana cam- 
para por sus respetos. 

COMO SE ESCRIBE EL JUEGO 



Son cuatro los objetos que poseen 



movimiento en la pantalla: la arana, 
que se mueve tanto horizontal como 
verticalmente; el globo, que surca el 
espacio y que solo se mueve vertical- 
mente; Freddy, que tambien se mueve 
en direccion vertical unicamente, y la 
flecha que este dispara. La flecha se 
mueve en general horizontalmente, 
pero cuando a Freddy le da por subir 
o bajar por la escalera entonces la fle- 
cha habra de moverse verticalmente 
junto con nuestro personaje. Sin em- 
bargo, quienes mas nos deben preo- 
cupar son la arana y el globo de turno. 



Son muchas las variables que so aso- 
cian a estos dos objetos. La tecnica 
que major se adapta a este caso es al- 
macenar las variables en una tabla uni- 
dimensional, empleando una cons- 
tante para referirnos a una casilla en 
particular. 

En un segundo paso habras de plan- 
tearte como visualizaras estas figuras 
en la pantalla. Lo que equivalc a de- 
terminar cuantos dibujos diferentes se 
van a necesitar a lo largo del juego. 
Todos los grandes juegos para orde- 
nadores incorporan dibujos extrema- 
damente cuidados y de gran colorido, 
lo cual quierc decir que este segundo 
paso no has de tomarlo a la ligera. 
Para bajar a un buen nivel dc detalle, 
construiremos la figura de Freddy con 
una ordenacion tres por dos de carac- 
tercs UDG. Para visualizar la arana 
utilizaremos figuras dos por dos (dis- 
pondremos de dos figuras para que la 
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«ABISMO»: ANADIENDO 
NUEVAS INSTRUCCIONES 



TEMPLANDO LOS IMSTRUMENTOS 



LAENVOLVENTE 



DEFIWICION DELTONO 



DURACION DE LAS NOTAS 



'MANGAS VEROES» 



Despues de que ha aparecido en la 
pantalla la primera pagina con el titulo 
del programa y cuando el jugador sabe 
ya que juego se supone que esta jugando 
hay que decirle la forma en que lo tiene 
que hacer. 

Nuevamente se utiliza un programa 
en BASIC para «pokear» letra a letra 
los datos de las instrucciones en una 
tabia ASCII cuando se ejecute el pro- 
grama, 

10 AD-17312:i-0 
15 POKE AD + I,147:[-I + 1 
50 M-3:G0SUB 2000 
60 POKE AD + I, 31:1-1 + 1 
70 A$-'LA HISTORIA 

CUENTA..,':rJ=24:G0SUB 
1000 
80 rJ = l:GOSUB 2000 
90 A$-'[ 18*C0MM+T]' 
:N-18:G0SUB 1000 
1000 N-3:G0SUB 2000 
110 A$=' DESPUES DE UN 

CORTO PASEO, WILLY 

VUELVE ':N = 40:GOSUB 

1000 
120 A$-'PARA BUSCAR LAS 

CABRAS QUE HAN 

ESPARCIDO':N = 40:GOSUB 

1000 
1250 A$ = 'LA MERIENDA FOR 
LAS ROCAS DEL 
ACANTILADC: N-40: 
GOSUB 1000 
140 A$-'WILLY QUIERE 

RECUPERAR SUS 

POSESiONES[ 3 

ESPACIOS]':N = 40:GOSUB 

1000 
150 A$ = 'PERD1DAS, PERO 

DEBE LUCHAR CONTRA 

LOS[ 3 ESPACIOS]' 

:N-40:GOSUB 1000 
150 A$-'GUIJARROS, LAS 

GRIETAS Y LAS 



SERPIENTES 

':N-40:GOSUB li 
170 A$-'VENENOSAS. POR SI 

FUERA POCO, LA MAREA[ 2 

ESPACI0S]':N=40:GOSUB 

1000 
180 A$-'ESTASUBIENDO Y EL 

NO PUEDE NADAR.[ 6 

ESPACIOS]':N-40:GOSUB 

1000 
190 A$-'[ 3 ESPACIOSIPARA 

AYUDAR A WILLY EN ESTA 

AVENTURA ':N-40:GOSUB 

1000 
200 A$-'[ 3 ESPACIOSILEE LAS 

SIGUIENTES 

INSTRUCCIONES Y[ 3 

ESPACIOS]':N-40:GOSUB 

1000 
210 A$-'PULSA S PARA JUGAR 

':N = 19:G0SUB 1000 
220 N-3:G0SUB 2000 
230 POKE AD+I, 149:1 = 1 + 1 
240 A$-'[ 2 

ESPACIOSITECLADO - 

SHIFT[ 3 ESPACIOS]-[ 3 

ESPACIOS]MOV. DERECHA[ 

4 ESPACIOS]':N-40:GOSUB 

1000 
250 A$='[ 16 ESPACIOSM 3 

ESPACI0S1=[ 3 

ESPACIOSISALTO 

VERTICAL. ':N-40:GOSUB 

1000 
260 A$ = '[ 12 

ESPACI0S]AMB0S[ 3 

ESPACI0S3-[ 3 

ESPACIOSISALTO A 

DERECHA.':N=40:GOSUB 

1000 
270 N = 1:G0SUB 2000 
280 A$-'[ 2 

ESPACIOSJJOYSTICK EN 

PORT 2[ 20 

ESPACIOS]':N-40:GOSUB 



1 

290 POKE AD+I, 

300 STOP 

1000 REM *** RUTINA PARA EL 

TEXTO *** 
1010 FOR J-1 TO N 
1020 POKE AD + I, ASC(MID$(A$, 

J,l)) 
1030 l = l + l:NEXT :RETURN 
2000 REM ^RUTINA PARA 

INSERTAR RETURN* 
2010 FOR J = l TO N:POKE 

AD+I,13:I-I + 1:NEXT 

iRETURN 
El siguiente programa se encarga de 
extraer los datos y presentarlos en la 
pantalla. 



4060 A9 09 LDA #$09 

4062 8D 20 D0 STA $ D020 

4065 A9 0F- LDA #$0F 

4067 8D 21 D0 STA $D021 

406A A9 A0 LDA #$A0 

4060 85 FB STA $FB 

406EA9 43 LDA #$43 

4070 85 FC STA $FC 

4072 A0 00 LDY #$00 

4074 EA NOP 

4075 Bl FB LDA{$FB),Y 
4077 F0 0E BEQ$40S7 
4079 20 D2 FF JSR $FFD2 
407C £A NOP 
407D E6 FB INC $FB 
407F D0 02 BNE $4083 
4081 E6 FC INC $FC 

4083 18 CLC 

4084 90 EF BCC $4075 

4086 EA NOP 

4087 20 E4 FF JSR $FFE4 
408AC9 53 CMP #$53 
408C D0 F9 BNE 4087 
408E 60 RTS 

Estos dos programas tienen que ser 
ensamblados y almacenados juntos, 
igual que hicimos con los programas 
dc la primera parte de ABISMO. Si 



1 



INPUT 39 



no dispones de un ensamblador, os 30 READBY:POKEAD, 
presentamosun programacargadorcn BY:S— S+BY 

BASIC para que podais entrar los da- 4^ NEXT 

^°^' 50 IFS07432THEN 

PRINT'ERROR EN LOS 
IP S-0 DATOS'iEND 

20 FOR AD-16480 TO 16526 ^^^g^ DATA 169,9.141,32,21 



169 
16486 DATA 15,141,33,208, 

169.160 
16492 DATA 133,251,169,67, 

133,252 
16498 DATA 160,0,234,177, 

251,240 




40 INPUT 



/ Codigo Maquina 




165p4 DATA 14,32,210,255, 
234,230 

16510 DATA 251,208,2,230, 
252.24 

16516 DATA 144,239,234,32," 
228,255 

16522 DATA 201,83,208,249. 

96 

Ademas de los dos metodos utili- 
zados para suministrar los datos a las 
palabras impresas en la pagina de pre- 
sentacion del juego, el programa en 
BASIC que tenemos ahora utiliza una 
tercera manera de construir la tabla 
ASCII. En esta ocasion se considera a 
las palabras como cadenas de carac- 
teres, pokeando el valor ASCII de 
cada letra en la tabla por medio dc la 
SLibrutina que comienza en la Ifnea 
1000. 

Pero antes que nada ticnes que bo- 
rrar la pantalla. Para ello, en la Ifiiea 
15 se pokea en la tabla el valor 147, 
que es el valor ASCII correspondiente 
a la tecla ACLR/HOME. A continua- 
cion la linea 50 pone Tres retornos de 
carro en la tabla, con fines de forma- 
teo y la linea 60 pokea en la tabla el 
codigo de la tinta azul. 



La linea 290 pokea un en la ultima 
posicion de la tabla, de forma que el 
programa en codigo maquina sabe 
cuando llega al final. 

EL PROGRAMA EN LENGUAJE 
ENSAMBLADOR 

En la direccion D020 sc almacena el 
niimero 0, con lo que al borde de 
pantalla se le asigna el color ma- 
rron. Seguidamente el color de 
pantalla, controlado por la posicion 
de memoria D021, se pone a F que 
corresponde al gris. 

La direccion de comicnzo de los 
nuevos datos se almacena entonces en 
las direcciones FB y FC de la pagina 
cero y el registro dc fndice Y se pone 
a cero. 

LDA ($FB), Y . realiza la carga de 
la tabla de datos a razon de un byte 
cada ve?, utilizando direccionamiento 
indirecto. BEQ S4087 fuerza la salida 
de la rutlna cuando se carga un cero 
en el acumulador. en otras palabras, 
cuando se llega al final de la labia el 
procesador pasa a la siguiente parte 
del programa. 

Tambien aqui se utiliza la subrutina 
de ROM que hay en FED2 para que 



aparezca en la pantalla el caracter 
cuyo codigo ASCII eontiene el acu- 
mulador. 

La pequena rutina que viene a con- 
tinuacidn incrcmenta el puntero en FB 
y FC. La instruccion BNE $4083 
fuerza un salto sobre la instruccion 
que incrcmenta el byte alto del pun- 
tero. El puntero queda incrementado, 
mientras que el registro de fndice Y se 
mantiene a cero, debido a que la tabla 
de datos tiene una longitud su- 
perior a los 255 bytes. 

El indicador de acarreo queda en- 
tonces puesto a cero y el procesador 
hace un salto hacia atras para cargar 
el siguiente byte de la tabla. 

ESPERANDOEL FINAL 

La rutina de ROM que hay en FFE4 
es la rutina GETIN que toma un ca- 
racter de la cola en el buffer de te- 
clado. El valor ASCII del caracter se 
pasa al acumulador y la instruccion 
CMP #53 compara su valor con el va- 
lor hexadecimal 53; que es el coditzo 
ASCII de la letra 8. 




Si no se ha pulsado una S y no figura 
este caracter ASCII en el buffer del te- 
clado, Ja instmccion BNE $4087 envk 
al procesador a este pequeno bucle a 
fin de comprobar el siguientc byte del 
buffer de teclado. 

Pero si, por el contrario, se pulsd 
una S, no se cumple la condicion BNE 
y el procesador pasa a la siguiente ru- 
tina (solo en este caso se produce la 
rotura forzada por la instruccion BRK 
y se detiene debido al RTS). 

TEMPLANDO LOS 
irVSTRUMENTOS 

Comenzaremos por preparar una 
nelodia antes de que Willy se apre- 
mre a partir hacia la aventura. Si, en 
INPUT COMMODORE hemos 
/uelto a la decada de los 60, queremos 
decir a la de 1560, con una tonadiJla 
\uo nos servira de motivo musical 
3ara nuestro juego del ABlSMO. 

Ningun juego puede considerarse 
:ompleto mientras no se le incorpore 
ilguna musiquilla agradable. En el 
luego del ABISMO hemos introdu- 
:ido la miisica de Mangas Verdes 
^"Greensleeves") melodia atribuida al 
ey Enrique VIII de Inglaterra. que se 
■epetira cada cierto tiempo. 



La rutina que interpreta la melodja 
la hemos puesto aparte de la rutina 
principal, debido a que sera llamada 
varias veces desdc varias partes dife- 
rentes del programa. Pero mientras 
esperas despues de que haya desapa- 
recido la pagina de presentacion, se 
inserta la siguiente curia: 



10 
20 
30 



S=- 



FOR AD-16473 TO 16478 

READBY:POKEAD, 

BY:S-S+BY 
40 NEXT 
50 IFS0668THEN 

PRINT'ERROR EN LOS 

DATOS';END 
16473 DATA 169,19,32,150,64, 
234 

Y en lenguaje ensamblador: 

4059 A9 13 LDA #$13 
405B 20 96 40 JSR $4096 
405E EA NOP 

Esto carga el acumulador con el nu- 
mero 13 hexadecimal, que es 19 en de- 
cimal, ya que hay 19 notas en la frase 
inicial de Mangas Verdes. A continua- 
cion salta a la subrutina que ejecuta la 
melodia, que esta en 16534. 



4096 C9 
4098 90 
409A A9 
409C EA 
409D EA 
409E EA 
409F EA 
40A0 85 
40A2 A0 
40A4 A9 
40A6 99 
40A9 88 
40AA D0 
40AC EA 
40AD A9 
40AF 8D 
40B2 EA 
40B3 A9 
40B5 8D 
40B8 A9 
40BA 8D 
40BD A0 
40BF B9 
4002 8D 

4005 08 

4006 B9 
4009 8D 
4000 08 
40CD 84 



13 
03 
13 



FB 
18 

00 



00 D4 
FA 

0F 
18 D4 

00 

05 D4 
F0 

06 D4 
00 

60 43 

01 D4 

60 43 
00 D4 

FC 



CMP #$13 

BOO $409D 

LDA #$13 

NOP 

NOP 

NOP 

NOP 

STA $FB 

LDY #$18 

LDA #$00 

STA $D400,Y 

DEY 

BNE $40A6 

NOP 

LDA #$0F 

STA $D418 

NOP 

LDA #$00 

STA $D405 

LDA #$F0 

STA $D406 

LDY #$00 

LDA $4300, Y 

STA $D401 

INY 

LDA $4360, Y 

STA $D400 

INY 

STY $FC 




i2 INPUT 




/ Codigo Maquina /j 



40CF A9 pjZ) 
40D1 AA 
40D2 A8 
40 D3 20 DB FF 
40D6 A4 FC 
40D8 EA 
40D9 B9 60 43 
40DC C8 
40DD 84 FC 
40DF85 FD 
40E1 EA 
40E2 A9 11 
40E4 8D 04 D4 
40E7 EA 
40E8 20 DE FF 
40EB C5 FD 
40ED D0 F9 
40EF EA 
40 F0 A4 FC 
40F2 A9 00 
40F4 8D 04 D4 
40F7 EA 
40F8 C6 DB 
40FA D0 C3 
40FC 8D 18 D4 
40FF 60 



LDA #$00 

TAX 

TAY 

JSR $FFDB 

LDY $FC 

NOP 

LDA $4360, y 

INY 

STY $FC 

STA $FD 

NOP 

LDA #$11 
STA $D404 
NOP 

JSR $FFDE 
CMP $FD 
BNE $40E8 
NOP 

LDY $FC 
LDA #$00 
STA $D404 
NOP 

DEC$FB 
BNE $40BF 
STA $D418 
RTS 



Ei cargador en BASIC seria: 

10 S=0 

20 FOR AD=16534TO 16639 

30 READBY:POKEAD, 

BY:S-S+By 
40 NEXT 

50 IFSO16001 THEN PRINT' 
ERROR EN LOS DATOS':END 
16534 DATA 201,19,144,3,169, 

19 
16540 DATA 234,234,234,234, 

133,251 
16546 DATA 160,24,169,0.153 


16552 DATA 212,136,208,250, 

234,169 
16558 DATA 15,141,24,212, 

234,169 
16564 DATA 0,141,5,212,169, 

240 
16570 DATA 141,6,212,160,0, 

185 
16576 DATA 96,67,141,1,212, 

200 
16582 DATA 185,96,67, 

141,0,212 
16588 DATA 200,132,252,16-^ 



16594 

16600 

16606 

16612 

16618 

16624 

16630 

16636 



0,170 

DATA 168,32,219,255, 

164,252 

DATA 234,185,96,67, 
200,132 

DATA 252,133,253,234, 
169,17 

DATA 141,4,212.234,32, 
222 

DATA 255,197,253,208, 
249,234 

DATA 164,252,169,0, 
141,4 

DATA 212,234,198,251, 

208,195 

DATA 141.24,212,96 



LIBRE DE ER RQRES 

El primer pequeno modulo 
de este programa esta protc- 




^ido contra una entrada erronea en los 
Jatos. Cuando se llama a esta rutina 
desde alguna otra parte del programa 
principal, puede ser que se te olvide 
::argar el acumulador adecuadamente. 
Como solo hay dates suficientes para 
asegurarse de que la rutina no esta 
siendo llamada para interpretar mas 
notas. For eso se compara el conte- 
nido del acumulador con 19. 

Pero si el contenido de! acumulador 
ss superior a 19, no se produce tal 
ialto, y el acumulador se carga con el 
valor 19. Esto significa que se puede 
Uamar a la rutina para tocar menos de 
19 notas, pero no mas. El niimero 
de notas que hay que interpretar se ai- 
macena entonces en FB, de mode que 
s.e puede utilizar el acumulador para 
inicializar el chip SID. 

EL CHIP «SID» 

El circuito integrado SID 6581 de 
Commodore, del que ya nos hemes 
ocupado en INPUT, controla la sin- 
tesis del soiiido y de la musica. Las di- 
recciones 54272 a 54296 corresponden 
a dicho chip y cuando vayas a utili- 
zarlo, lo primero que tienes que hacer 
es borrarlas poniendo ceres en sus 24 
direcciones. 

For ello se carga el valor 24 (18 en 
hexadecimal) en el registro de mdice 
Y, cargandose ademas un en el acu- 
mulador. Despues se carga un cero en 
54272 (D400 en hexadecimal), con un 
desplazamiento equivalente al conte- 
nido de Y, lo que da el valor 54296. A 
continuacidn se decrementa Y regre- 
sando el ordenador hacia atras. 

La ultima direccion del SID, la 
54296 (D418) controla el volumen glo- 
bal de la salida del sonide. El maximo 
volumen sc obtiene cargando esta ul- 
tima direccion del SID 685 1 con el va- 
lor 15. 

LA ENVOLVENTE 

Se llama envolvente a la forma en 
que varia el volumen de un sonido du- 
rante cl tiempo que dura. Ya hemes 
hablado en otros numeros de INPUT 
de la manera de configurar la envol- 
vente de un sonido. Per ahora, lini- 
camente neccsitas recordar que hay 
cuatro parametros que intervienen: 




y 



sol- 



ataque, caida, sostenimiento 
tado. 

El ataque de una nota caracteriza la 
velocidad a la que alcanza su maximo 
volumen. El volumen medio es lo que 
llamamos su sostenimiento. La velo- 
cidad a la que disminuye su volumen 
a partir del volumen medio es lo que 
hemes llamado «soltar». 

Puedes entender facilmente el sig- 
nificado de todos estos terminos si 
piensas en la forma en que se ejecuta 
una nota tocada en un piano. El ata- 
que esta controlado por la fuerza 
con que aprietes la tecla. Si le das 
bruscamente, el ataque es brusco; si la 
golpeas con mas suavidad, el ataque 
sera mas dulce. 

Despues del golpe inicial del macillo 
contra la cuerda, el volumen dismi- 
nuye con bastante rapidez. Pero mien- 
tras mantengas la tecla bajada los apa- 
gadores estaran separados de la 
cuerda y la nota se mantendra. El so- 
nido se extingue complietamente en 
cuanto el apagador reposa de nuevo 
sobre la cuerda al soltar la tecla. 

Los cuatro atributos de ataque , 
caida, sostenimiento y soltado pueden 
adoptar valores cuantificados entre y 
15. El valor del ataque se almacena en 
los cuatro bits de mayor peso de la di- 
reccion de memoria D405 y el valor de 



caida en los cuatro bits de menor peso 
de esa misma direccion. Los valo- 
res de sostenimiento y soltado se al- 
macenan respectivamente en los ni- 
veles alto y bajo de la direccion de me- 
moria D406. 

Los valores de ataque, caida y sol- 
tado se ponen a cero, mientras que el 
valor de sostenimiento se fija en 15. 

DEFINIENDO EL TONO 

El teno de los sonidos esta contro- 
lado por las direcciones de memoria 
D400 y D401. Los detalles para el 
tono de cada nota de la frase inicial de 
Mangas Verdes estan contenidos en la 
tabla de datos que hay en 4360 hexa- 
ciecimal. 

El registro de indice Y se carga con 
el valor cero y el primer byte de la ta- 
bla de datos se carga sobre el byte alto 
de la direccion de control de tono. A 
continuacion se incrementa Y, cargan- 
dose el siguiente byte de datos en el 
byte bajo de la posicidn de control de 
tono; despues se incrementa nueva- 
mente Y. El indice se almacena en- 
tonces en EC. 

LA DURACION DE LAS NOTAS 

Tambien tienes que especificar lo 
que dura cada nota. Pero no hay nin- 
guna direccion en el circuito integrado 
SID que contrele dicha duracion. Tie- 
nes que ocuparte tii de ello, extin- 
guiendo la nota cuando quieras que 
cese el sonido. 

Para ello, lo primero que tienes que 
hacer es poner a cero el reloj de 
tiempo real. Este reloj esta controlado 
por la rutina SETTIM en la ROM 
Kernal. Se carga un cero en el acu- 
mulador y se transfiere a los registros 
X e Y. Estos tres registros tienen que 
estar a cero para inicializar el reloj. El 
procesador salta entonces a SETTIM, 
que empieza en FFDB. La duracion 
que debe tener la nota es el tercer pa- 
rametro de la tabla de datos. Por ello 
se restaura el indice a partir de FC y 
a continuacion se carga en el acumu- 
lador el siguiente byte de datos. Se- 
guidamente se incrementa el registro 
de indice Y, almacenandose en FC, 
quedando almacenada la duracion de 
la nota en FD. 



44 INPUT 



La direccion de memoria D404 es el 
registro de control del circuito SID y 
cada uno de sus bits controla una fun- 
cion determinada. En este caso se ha 
cargado con un 17 (U en hexadeci- 
mal), que en binario es 00010001, con 
lo cual estan activados los bits cero y 
cuatro. 

El bit cero es la «puerta» (gate), de 
modo que cuando es activado empieza 
a emitir el sonido. El bit cuatro per- 
mite obtener un sonido con una forma 
triangular, que resulta con una calidad 
suave y aflautada. 

Una vez que ha side establecido el 
sonido, el procesador salta a la subru- 
tina RDTIM, que esta en la ROM 
Kernal, la cual realiza una lectura en 
el reloj de tiempo real. El reloj cuenta 
1/60 de segundo y almacena el tiem- 
po en tres bytes. Pese a lo que dice la 
Guia de Referenda para Programa- 
dores, cuando se lee el tiempo las ci- 
fras menos significativas son devueltas 
en el acumulador, las siguientes en el 
registro X y las mas significativas en 
el registro Y. 

Las notas musicales duran un 
tiempo muy corto, por lo que es el 
byte del acumulador el que se com- 
para con el parametro de duracion que 
hay en FD. Si ambos valores no son 
iguales, o, lo que es lo mismo, si el re- 



loj todavia no ha llegado al valor de- 
signado, la instruccidn BNE fuerza un 
salto a la instruccion JSR, que impone 
una salida y una nueva lectura del 
tiempo. Pero cuando se alcanza el 
tiempo requerido, no se cumple la 
condicion de la instruccidn BNE y el 
procesador sigue avanzando. 

De nuevo se restaura ei registro de 
indice Y desde FC. Se carga un cero 
en el acumulador y se almacena en la 
direccion D404, que es el registro de 
control del SID. Asi se apaga nueva- 
mente el sonido. 

A continuacion se decrementa el 
contador de notas que hay en FB y si 
todavi'a no ha llegado a cero, la ins- 
truccion BNE recorre el bude para 
ocuparse de la siguiente nota. Si la 
cuenta ya ha llegado a cero, el conte- 
nido del acumulador, que todavia es 
cero, se almacena en D418, con lo cual 
el volumen se pone a cero. En este 
memento el procesador regresa al 
BASIC, ya que acabamos de llegar al 
final de la primera parte de Abismo. 



LOS DATOS 



La anterior rutina de lenguaje en- 
samblador puede utilizarse para eje^ 
cutar cualquier melodia, siempre que 
modifiques el valor del contador de 



notas que hay en FB. Puedes cargar la 
forma de la envolvente y el tipo de so- 
nido producido, realizando los opor- 
tunos ajustes de los valores deposita- 
dos en las direcciones D404 D405 v 
D406. 

Pero no se interpretara absoluta- 
mente nada a menos que suministres 
algunos datos. Tampoco aqui vale la 
pena hacerlo en codigo maquina; ei si- 
guiente programa en BASIC pokea 
los datos de Mangas Verdes en una ta- 
bla de datos a la que pueda tener ac- 
ceso el programa en codigo mdquino. 

10 ADD-17248;FORI = !3TO32000 
20 READA%:POKEADD + f,A% 
30 IFA%-0GOTO50 
40 NEXT 
50 EIND 

17248 DATA 28,126,16,45,198 

32,51,97,16,57 
17258 DATA 172,64,51,126,16 

57,172,32,51,97 
17268 DATA 32,43,52, 16,34, 

75,64,38,126,16 
17278 DATA 45,52,32,45 198 

32,38,126,16,38 
17288 DATA 126,64,34,75 16 

38,126,32,43,52 
17298 DATA 32,36,85,16 28 

214,32,0 



USTA DE PREMIADOS EN LA ENCUESTA DE JUNIO 



Primer premio de 25.000 pts. en metalico: 

MANUEL VAZQUEZ RODRIGUEZ. Calahorra (La Rioja) 

Diez premios de un juego para cada concursante: 



MIGUEL ANGEL VAZQUEZ FERNAWDEZ Vigo 

JUAN CARLOS SANTOS MARTIN. Guadalajara 

DAVID JOU SALA. Barcelona 

ADELARDO MANUEL DORADO CARO. Alcala de H (Madrid) 

FERNANDO FERNANDEZ ABRIL. Ponferrada (Leon) 



LUIS CHIGHARRO HERNANZ. Madrid 

MANUEL CARLOS PERALTA CAMPO. Lerida 

JORDI JOAQUIN ESTEVE. Tarragona 

RUBEN GONZALEZ LILLO. Navarra 

MANUEL RACHAD HAJ-SALEH RAMIREZ. Sevilla 
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CUADROS CON GRAFICOS 
DEFINIDOS POR EL USUARIO (I) 



Una vez has dcrmido un juego de fi- 
guras, es muy facil crear una gran va- 
riedad de cuadros con solo variar la dis- 
posicion de los UDG y cambiar el fondo . 

En el ultimo articulo de la serie se 
indicaba la manera de que pudieses 
superar cuaiquier Ifmite que tuviera tu 
ordenador en el numero de UDG que 
pudieras crear, y como puedes definir 
el juego de caracteres. Este articulo es 
cl primero de una serie de dos que tc 
mostraran como puedes ahorrar una 
gran cantidad de tiempo y de esfuerzo 
utilizando UDG para formar un cua- 
dro en la pantalla. UDG son las siglas 
de User Defined Graphics, que signi- 
fica «graficos definidos por el usua- 
rio». 



iPOR QUE HAY QUE EMPLEAR 
LOS UDG? 

Supon que deseas crear un cuadro 
de la jungla — quiza una pagina de ti- 
tuJo para un nuevo y emocionante 
juego — . Para cllo existen basica- 
mente dos maneras de hacerlo. Po- 
drias dibujar con DRAW cada parte 
del cuadro y colorearlo como desea- 
ses, Pero supon que quisieses un bos- 
que como parte de tu fondo. Tendrias 
que dibiijar un tronco y tres copas 
para cada arbol que incluyeses en el 
cuadro, o sea, una tarea realmente te- 
diosa. Y. desde luego, cada uno do cs- 
tos troncos y copas seri'an Iguales, En 
cambio, si puedes disenar uno o varies 
UDG, que sc combinen para formar 
un arbol, solo tendras que colocar con 
un PRINT las figuras recien creadas. 

Este ultimo procedimiento tiene la 
evidente ventaja de que te ahorra 
la necesidad dc cspecificar cada uno 
de los detalles cada vez que deseas te- 
ner un arbol en la pantalla, ademas de 
otras ventajas adicionales. 

Una de ellas es que ahorras tiempo. 



Los ordenadorcs presentan caracteres 
con PRINT muclio mas rapidamente 
que con DRAW trazando lineas de 
alta resolucion (lo cual tambien es ver- 
dad si los caracteres son definidos por 
el usuario y muy complicados). Por 
tanto, si almacenas tu cuadro en forma 
de UDG, cuando el ordenador llega a 
la parte de tu programa que presenta 
el cuadro, no tienes que estar aguar- 
dando un largo tiempo mientras el or- 
denador lleva trabajosamente tu obra 
a la pantalla: aparece casi instantanea- 
mente. 

LIBERTAD DE ELECCIOIM 

Otra ventaja es que puedes variar 

facilmente, y cuando lo desees, el ta- 
marro del objeto. Con el ejemplo an- 
terior puede variar la altura del arbol 
simplemente anadiendo o quitando 
uno o mas UDG del «tronco», o al- 
terar su follajc cmpleando una com- 
binacion distinta de UDG de «hoja». 
Naturabnente, esto tambien puedes 
hacerlo con los comandos de alta re- 
solucion dc tu ordenador, pero los 
UDG son mucho mas comodos. Para 
empezar, tratas con los niimeros mu- 
cho mas manejables de la pantalla de 
baja resolucion. 

Una vez lias definido los UDG para 
tu cuadro, permanecen en la memoria 
(a menos que los cambies), aunque no 
son necesaria ni pcrmanentemente ac- 
cesibles desde el teclado; si tienes va- 
rios bancos o juegos de caracteres al 
mismo tiempo en la memoria, tendras 
que «activar» el banco que debc ser 
accesible desde el teclado. Para esto 
bastara simplemente con variar el 
puntero de los UDG. 

Esto significa que podras utilizar las 
figuras que has disenado tantas veces 
como desees en tus programas: el 
linico limite es la memoria del orde- 
nador. En consecuencia, en tu pro- 
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/ Programacion 



CQMO DECIDIRCUANDO HAY 

QUE UTILIZAR LOS UDG 

FQRMACION DE UN CUADRO 

CON VARIOS CARACTERES 

REALIZACION DE UN CUADRO 



DE LA JUNGLA 



UN COCODRILO. UN ELEFANTE 



Y ARBOLES 



DiBUJODELFONDO 



ALTAYBAJARESOLUCION 




grama resultara tan facil tener un cua- 
dro de bosque como un solo arbol. 

No obstante, el empleo de los UDG 
tiene algunos pequenos inconvenien- 
tes. Para empezar, ticnes que definir 
todas las figuras y teclear los datos en 
el ordenador, aunque, normalmente, 
esto no es peor que trabajar con gra- 
ficos de alta resolucion. Pero tambien 
hay que utilizar una parte de la limi- 
tada memoria de tu ordenador para al- 
macenar los UDG y, a menos que seas 
muy cuidadoso, acabaras por almace- 
narlos dos veces. En el segundo ar- 
ticulo de esta sehe se indica como pue- 
des evitar esta repeticion de memoria. 

^QUE IMAGENES EMPLEAN LOS 
UDG? 

Por las razones expuestas anterior- 
mente, hay una serie de imagenes que 
puedes dibujar de manera mucho mas 
eficiente con UDG que otras. 

Como regla general practica, si el 
cuadro tiene un mimero relativamenle 
pequerio dc objetos macizos en partes 
que aparecen con una forma similar 
varias veces, o si deseas emplear una 
imagen varias veces durante la ejecu- 
cion de un programa, podras ahorrar 
tiempo y esfuerzo utihzando los 
UDG. 

Pero si quieres tener un cuadro muy 
detallado que solo vas a emplear una 
vez en el programa, probablemente 
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sera mejor que utilices ios comandos 
de alta resolucion del ordenador. 

Por ejemplo, si el cuadro debe tener 
como telon de fondo una pared de la- 
drillos, la podras formar rapidamente 
enipleando sencillamente uno o dos 
UDG que presentaras con PRINT re~ 
petidamente en la parte del cuadro en 
la que dcsees que aparezca la pared. 
Una alternativa podria ser dibujar una 
serie de h'neas en una zona coloreada 
para simular las juntas de los ladrillos. 

Otro ejemplo seria el cuadro de la 
jungla mencionado anteriormente. Ya 
se ha indicado que pucdes ahorrar 
tiempo defmiendo los UDG para los 
arboles que debe contener cualquier 
escenario de jungla. Los animales que 
deben acompafiar a los arboles tam- 
bien son muy adecuados para ser de- 
finidos con UDG, puesto que asi po- 
dras etnplearlos en cualquier punto 
del programa, para animarlos, o para 
disponer de un gran niimero de los 
mismos. 

UN CUADRO DE LA JUNGLA 

A continuacion se presenta un pro- 
grama que sirve para deflnir los carac- 
teres tipicos que probablemente de- 
searas incluir en la escena de la jungla. 

10 POKE 52,48:P0KE 56, 

48:CLR 
20 POKE 56334,0:POKE 

1,35 
30 FOR Z-0TO-1024:POKE 

12288+Z,PEEK(53248 + Z): 

NEXT Z 
40 POKE 1,39:P0KE 56334, 

1 
50 FOR Z-0TO 143:READ 

X:POKE 13312+Z,X: 

NEXTZ 
52 FOR Z=760TO983:READ 

X:POKE 13312 + Z,Xr 

NEXTZ 
55 C$ = CHR$(13):P0KE 53272, 

28:P0KE 53281, 0:POKE 

53280,6 
60 PRINT 

•'[SHIFT+CLR/HOME]":FOR 

Z-1 TO 30:X-INT 

(RND(1)*320) 
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70 POKE 1024+X,46:POKE 

55296+X,RND(l)'^6 + 2:NEXT 
Z 

80 T$-"[CTRL + 9][CTRL+6][C 
OMM + D][COMM + Z][CRS 
R ABAJO][ 2*CRSR IZQDA. 
][COMM + S][COMM + @][CR 
SR ABAJO][ 2*CRSR IZQD 
A.][COMM + A][COMM + E][C 
RSR ABAJOKCRSR IZQDA.] 
[CTRL+5][COMM + R]":C(0) 
-3 

85 TT$-"[CTRL+4][CTRL + 9][ 
COMM + W][COI\/IM+G][COM 
M + H][C0MM + L][CTRL + 3][ 
CRSR ABAJO][ 3*CRSR IZ 
QDA.][COMM + Y][COMM + U] 
ICRSR ABAJO][ 2^CRSR IZ 
QDA.][COMM + 0][CRSR AB 
AJO][CRSR IZQDA. ][SHIFT 
+ @]":C(l)-6 

87 PRINT "[CLR/HOME][ 
7*CRSR 

ABAJ0][CTRL-h6]":F0R Z-1 
TO280:PRINT "[COMM+T]"; 
:NEXT 

90 PRINT "[CLR/HOME][ 6*CR 
SR ABAJ0]"TAB(13)TT$" 
[ 4*CRSR ARRIBA][ 2*CRS 
R DCHA.]'T$'T 2*CRSR A 
RRIBA][CRSR DCHA.]"T$TT 
$ 

95 PRINT "[CLR/HOM£][ 4=^CR 
SR ABAJO]"TAB(30)T$"[ 2 
*CRSR ARRIBA]"T$"[ 2*C 
RSR ARRIBA]" 

T$TT$ 

96 PRINT 'TCLR/HOME][ 9*CR 
SR ABAJ0][CTRL + 5]"SPC( 
30)"[CTRL + 9][COMM+ *]" 
CHR$(160)"[COMM + K][CO 
MM-fl][CRSR ABAJO][ 4*C 
RSR fZQDA.][CTRL + 9][C0 
MM+T][COMM + @][COMM + 
G][COMM+ +][c6mM + M][ 
CRSR ABAJO][ 5*CRSR IZ 
QDA.][CTRL+9][CRSR DCH 
A.][COMM+£][SH(FT+£][C 
OMM + N][COMM + 

Q]" 
150 FOR Z-0 TO 159:P0KE 
1864+Z,102:POKE 



56136+Z,C(RND(1)*2): 

NEXTZ 

160 PRINT 'TCLR/H0ME][ 
20*CRSR ABAJO]"TAB 
(28); 

162 IF RND(1)>.50 THENPRI 
NT "[CTRLt-9][CTRL + 8]@ 
ABCDEFGHIJK";SPC(28);" 
[CTRL + 9]LMN00000P00 
O[CTRL+0]";:GOTO 
170 

164 PRINT "[CTRL+8][ 12 ES 
PACI0S]";SPC(28);'TCTRL 
+ 9](SABCDEFGH!JK[CTRL 
+ 0]"; 

170 FOR D = l TO 200:NEXT 
D 

190 GOTO 160 

Si introduces y liaces correr el pro- 
grama en el ordenador, podras ver la 
clase de cuadro que podras crear con 
UDG. No te preocupes si la mitad su- 
perior de la pantalla aparece algo va- 
cia en este momento, ya que en el pro- 
ximo articulo de esta serie se termi- 
nara el cuadro. 

VERSATILIDAD DE LOS UDG 

Podras comprobar la versatilidad de 
los UDG observando el agua que hay 
debajo del cocodrilo. En realidad es 
un solo UDG que se repite en toda la 
zona del agua. 

Tambien podras observar que el 
cuadro no solo contiene UDG, sine 
tambien algunas lineas de alta resolu- 
cion que dan la impresion de que en 
el cuadro tambien hay colinas. 

En este ejemplo puedes comprobar 
que si bien los UDG tienen muchas 
ventajas con respecto a los comandos 
de alta resolucion, a menudo podras 
obtener muy buenos resultados em- 
pleando ambos procedimientos en el 
mismo cuadro. 

En el siguiente articulo de esta serie 
se afiadiran mas cosas al cuadro. Por 
lanto, salva esta parte en la cinta para 
evitar tener que cscribirlo otra vez. 

COMO FUNCIONA EL PROGRAMA 

El programa se ha dividido en dos 
partes. En la primera parte se definen 
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todos los caracteres y, en la segunda, 
los UDG se presentan en las posicio- 
nes adecuadas. 

Ei programa empieza con varios 
POKE para leer el juego de caracteres 
de la ROM e introducirlo en un area 
protegida de la RAM. 

Despues continua introduciendo los 
datos de cadauno de los caracteres de- 
finidos por el usuario en la RAM, con 
lo que ya puedes utilizar los caracte- 
res. Esta operacion termina en la linea 
52. 

La linea 55 establece que la variable 
CS sea igual a CHR$(13), que es un 
RETURN. Esto se hace para mover la 
posicion de PRINT a la siguiente li'nea 
de la pantalla durante la prescntacion 
efectiva del cuadro. La linea tambien 
establece el modo y los colores del 
fondo y del marco con trcs POKE. 

La pantalla se borra en la Imea 60, 



y el ordenador prosigue iniciando la 
presentaeion del cuadro. En primer 
lugar presenta aleatoriamente una sc- 
ric de estrellas, puesto que el cuadro 
representado es «La jungla de noche». 
Estas estrellas son simplementc pun- 
los presentados en colores elegidos 
aleatoriamente mediante el bucle 




FOR.. .NEXT de las lincas 60 y 70. 

Seguidamente, el program a pre- 
senta los UDG en las posicioncs de- 
terminadas por los caracteres de po- 
sicionamiento de cursor que piieden 
verse en cada sentencia PRINT, 

Los UDG de los arboles son los que 
sc presentan en primer lugar y, para 
mayor facilidad, los caracteres que los 
fonnan se asignan a dos variables dc 
cadena, TSy TT$. Enlonces, las Ifneas 
90 y 95 imprimen las dos cadenas. 

La linea 87 anade algo mas dc 
fondo, que son las lineas horizontales 
que puedes ver al ejecutar el pro- 
grama. E! otro animal estatico, cl cle- 
fante, lo presenta la linea 96. 

El cocodrilo se presenta mediante 
una rutina algo mas compleja para que 
se .mueva hacia arriba y hacia abajo en 
el agua. Esta rutina ocupa las lineas 
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160 y 190, y simplemcnte imprime una 
linea de espacios encima de la parte 
inferior del cocodriio si el numero ele- 
gido aieatoriamente por la linea 162 es 
mayor que 0.5. 

Si no te gusta que el cocodriio se 
mueva, puedes dcjarlo quieto cam- 
biando la linea 190 a: 
190 GOTO 190 

UNA MANADA DE ELEFANTES 



Es posible que prefieras sustituir el 
elefante unico que se presenta en este 
momento por loda una nianada. Esto 
podras hacerlo dc manera parecida 
al metodo empleado para presentar 
varies arboles: con un bude 
FOR... NEXT o con varies GOSUB. 
En la siguiente parte de este articulo 
se vera como puedes afiadir mas fi- 
guras a la escena, asi como aplicar al- 
guna animacion a la misma. 



1300 REM COCODRILO 

1310 DATA 0,0,1,7,15,15,9,5,0 1390 
,0,128,192,248,255,12 
7,95,1,3,6,12 

1320 DATA 62,255,255,255, 

192,224,176,159,191,2 1780 
55,255,255 1790 

1330 DATA 0,0,0,0,0,248,252, 
255,0,0,0,0,0,04,207,0 
,0,0,1,15,127,255,255 

1340 DATA 0,3,63,255,255, 1800 
255,255,255,127,255,2 
55,255,255,254,249,24 1810 
7,248 

1350 DATA 255,255,255,255, 
15,255,255 

1360 DATA 0,224,254,255,255, 1820 
255,255,255,0,0,0,192, 
248,255,255,255,0,2,4, 
7,7 1830 

1370 DATA3, 0.0, 21, 1,164,73, 
255,255,0,0 

1380 DATA 255,127,63,63,255, 1840 
255,127,31,255,255,25 




5,255,255,255,255,255 

DATA 239,239,239,239, 

239,247,247,247,60,25 

5,255,255,255,255,255 

,255 

REM ELEFANTE 

DATA 0,0,0,8,28,25,51, 

51,0,0,0,126,255,193,2 

53,253,0,0,0,0,0,255,2 

55 

DATA 255,0,0,0,0,0,248, 

252,254 

DATA 102,111,111,111,1 

25,57,26,0,253,251,25 

1,251,231,31,15,15,25 

5,255 

DATA 255,255,255,255, 

255,255,254,255,255,2 

55,255,255,255,255 

DATA 0,0,128,64,32,16,1 

2,0,15,15,15,14,14,14, 

14,31,255,240,224,224 

DATA 224,224,224,224,2 

55,63,59,59,57,57,121, 

248 

DATA 0,0,128,192,224, 

224,128,0 

REM ARBOL 1 

DATA 0,0,0.0.1.1,3,7,0,0 

,0,0,224,240,248,248,1 

5,63,63,63,31,15,3,3 

DATA 252,254,254,254, 

254,254,252,252 - 

DATA 3,3,3,3,3,1,0.0,248 

,248,248,248,248,248, 

240,96,96,96,96,96,96, 

96 

DATA 96,96 

REM ARBOL 2 

DATA 0,3,15,31,127,127, 

63,1,7,15,255,255,255, 

255,255,255,15,63,255 

,255 

DATA 255,255,255,255,0 

,128,248,248,248,248, 

240.224 

DATA 255,227,96,48,24, 
25,13,15,252,240,96,9 
6,192,192,128,128,7,7, 

7,7,7 

DATA 7,7,7,7,7,7,15,15, 
15,31,63 
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BUSQUEDA DE AIMOMALIAS 

Deberas tener mucho cuidado al in- 
troducir los datos. puesto que es ine- 
vitable que haya una gran cantidad. 

—Si tu ordenador se detiene al ha- 
cer correr el progrania con un mcnsaje 
de error OUT OF DATA, sigmfica 
que en el progrania no hay suficientes 
datos. 

—S\ has indicado al ordenador que 
lea la cantidad corrects de datos, 
puede haber dos posibles razones para 
cllo: puedes haber olvidado uno o mas 
numcros o puedes haber introducido 
puntos en lugar de comas. Un punto 
en lugar de una coma cambia dos nii- 
meros en uno, puesto que el punto se 
interpreta como un punto decimal. 

— La unica solucion para estos dos 
problemas es comprobar, y volver a 
comprpbar, los datos hasta que en- 
cuentres cl error. Resulta de mucha 



ayuda inciuir un comando PRINT en 
el bucle que introduce los datos, con 
cl que el ordenador presenta cada nii- 
mcro al introducido. De esta manera 
podras comprobar cada numero a me- 
dida que se introduce. 

— Si has introdjcido demasiados da- 
tos, o la cantidad correcta pero erro- 



neos, el programa correra sin ninguna 
dificultad. pero veras una serie muy 
extrana de imagenes: por ejempio, el 
cocodrilo podra tener una trompa o el 
elefante podra parecerse a una copa 
de arbol. Como antes, la unica solu- 
cion consiste en comprobar todos los 
datos introducidos. 



NO OLVIDES ELTELEFONO... ^ 

Cuando, por cualquier motivo, nos escribas, no 
Divides indicartu numero detelefono. Asi nos sera mas 
facti y rapido ponernos en contacto contigo. Gracias. 



Bailen, 92-94, 
esquina Aragon. 
Metro Verdaguer 
08090 Barcelona 




Aprovechate de nuestras ventajas. 

- Presentacion de novedades y juegos de importacion. 

- Hazte socio de nuestro club de videojuegos y disfruta de nuestros 
descuentos. 

- Van a nuestra super boutique a probar tus juegos favorites. 

- Participa en nuestros concursos mensuales. 

- Asombrate de nuestros precios: los mejores del mercado. 



Laprimera tienda de videojuegos para ordenador en Barcelona. 
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PROGRAMA MULTIGESTION 

A continuacion publicamos la segunda parte del Programa Multigestidn que, por razones de espacio, no 

se publico completo en el numero anterior de INPUT. 

1035 PRINT MID$(V$,A,1);"[CRSR ABAJO]"; 

1040 NEXT A 

1045 PRINT "[CLR/HOME] [ 23*CRSR ABAJO]";H$ 

1050 FOR A=l TO 15 

1055 X=A*2 

1060 IF D(A)-)0 THEN1080 

1065 FOR Y-0TO D(A) 

1070 POKE 1906+X-40*Y,i60:POKE 56177+X-4i2)*Y,A 

1075 POKE 1906+X-40^Y,160:POKE 56177+X-40*Y A'NEXT Y 

1080 NEXT A 

1085 GET KK$: IF KK$=" "THEN1085 

1090 IF KK$-"S"THEN550 

1095 IF KK$ = "0" THEN950 

1100 IF NOT KK$ = T" OR NOT KK$ = "0" THEN1085 

1105 REM **^** ? HORA ? ****** 

1110 TI$-"000000":FOR J=l TO 1000 

1115 INPUT 'T 4 ESPACiOS] [SHIFT + HJORA [ 2 ESPACIOS] (000000) 

1120 IF LEN(TI$)<>6 THEN445 

1125 GOTO 445 

1130 REM ***** PRESENTACION MORA ***** 

1135 PRfNT 'TCTRH-6][CLR/H0ME][ 22*CRSR ABAJO][ 40*C0MM+(?^. 



->";TI 





INPUT 53 



1140 PRINT "[SHIFT+H] -> ";TI$ 

1145 FOR PR = 0TO 1(300 

1150 NEXT PRiGOTO 550 

1155 REM ***** GUIA TELEFONICA ***** 

1160 PRINT "[SHIFT+CLR/HOMEJI 10*CRSR ABAJO][ 9^'CRSR DCHA.]"; 

1165 PRINT "[CTRL-F5][SHIFT+L]ISTiN TELEFONICO":FOR A=0 TO 900:NEXT A 

1170 PRINT "[SHIFT+CLR/HOME]" 

1175 PRINT TAB(5);"[SHirT+0]PCIONES":PRINTTAB(15);"====== = = ":PRINT"[2*CRSRABAJO]" 

1180 PRINT "[SHIFT+EINTRAR NUEVO NUMEROTELEFONICO ----- = > 1" 

1185 PRINT "[SHIFT+BJORRAR NUMERO TELEFONICOl 7 ESPACIOS] = = = = - = > 2" 

1190 PRINT 'TSHIFT+BIUSCAR UN NUMERO EN EL ARCHIVO --- = = = > 3" 
1195 PRINT "[SHIFT+CIARGAR EL ARCHIVO[ 14 ESPACIOS] -- = ---> 4" 
1200 PRINT "[SHIFT+SIALVAR EL DIRECTORIO f 11 ESPACIOS] - = = --- 5" 
1205 PRINT 'TSHIFT+L]ISTAR TODOS LOS NUMEROS[ 7 ESPACIOS] = = ----> 6" 

1210 PRINT 'TSHIFT+M]ENU PRINCIPAL[ 17 ESPACIOS] -----=> 7" 

1215 PRINT "[ 2 ^ CRSR ABAJO][ 40*C0MM + (a)]"; 

1220 PRINT "[ 8 ESPACIOS][SHIFT+P]ULSE LA OPCION DESEADA" 

1225 GET K$:IF K$=" " THEN 1225 

1230 IF K$<"1" OR K$>"7" THEN 1225 

1235 PRINT "ISHIFT+CLR/H0ME]":0NVAL(K$)G0SUB1245, 1285, 1325, 1530, 1440, 1380,550 

1240 PRINT 'TSHIFT+CLR/HOME]":GOTO 1170 

1245 P = 0:F=-1 

1250 IFT$(P,0) = " " THENF-P:P=100 

1255 P=P+1 

1260 IF P<> 101 THEN 1250 



♦ 



* 
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1265 

1270 

1275 

128(3 

1285 

1290 

1295 

1300 

1305 

1310 

1315 

1320 

1325 

1330 

1335 

1340 

1345 

1350 

1355 

1360 

1365 

1370 

1375 

1380 

1385 

1390 

1395 

1400 

1405 

1410 

1415 

1420 

1425 

1430 

1435 

1440 

1445 

1450 

1455 

1460 

1465 

1470 

1475 

1480 

1485 

1490 

1495 

1500 

1505 

1510 

'< :s' 

!< 2 -■ 

/ 7 - ■ 



IF F--1 THENPRINT "[SHIFT+M]EMORIA [SHiFT+L]LENA":FOR P-0 TO 900:NEXT:RETURN 
OPEN 1,0,0:PRINT "[SHIFT+NJOMBRE -> ";:INPUT#1,T$(F,0):PRINT 
PRINT "[SHIFT+NIUMERO => ";:INPUT#1,T$(F, 1):PRINT :CLOSE 1 
RETURN 

OPEN 1,0,0:PRINT 'TSHIFT+NIOMBRE A BORRAR";:INPUT#l,D$:PRmT -CLOSE 1 

S--1 

FOR X=0 TO 100 

IFT${X,0) = D$THENS-X 

NEXTX 

IF S = -l THENPRINT "[SHIFT+NJO HE ENCONTRADO ESE NOMBRE":GOTO 1285 

T$(S,0) = "":T$(S,1)-" " 

RETURN 

OPEN 1,0,0;PR(NT "[SHIFT+NJOMBRE "-INPUT#1,N$:CL0SE 1:PRINT 

S--1 

FOR X=0 TO 100 

IFT$(X,0) = N#THENS=X 

NEXTX 

IF S— 1 THENPRINT 'TSHIFT+NJO HE ENCONTRADO ESE NOMBRE":GOTO 1325 

PRINT "[SHIFT+NIOMBRE ";T$(S,0) 

PRINT 'TSHIFT+N]UMERO ";T$CS,1) 

PRINT iPRINT iPRINT "[SHIFT+PJRESIONE CUALQUIER TECLA" 

GET K$:IF K$-" " THEN1370 

RETURN 

INPUT "[SHIFT+CjOPIA A IMPRESORA";P$ 

IF LEFT$(P$,1)-"S" THENOPEN 4,4,7:CMD 4 

FOR P-0TO 100 

GET K$:IF K$-"H"THEN1395 

IFT$(P,0)-" " THEN1420 

PRINT :PRINTT${P,0) 

PRINT T$(P,1):PRINT 

NEXT P 

PRINT :PRINT "[ 8 ESPACIOS][SHIFT+P]RESIONE CUALQUIER TECLA" 

GET K$:IFK$-" "TH,EN1430 

RETURN 

REM ***** 'SAVE' PROGRAMAS **''** 

OPEN 1,1,1,"FEC0M C64" 

FOR F=0 TO 100 

FOR E=0 TO 8:IF C$(F,E)" " THENC$(F,E) = "-" 

PR1NT#1,C$(F,E) 

NEXTE:NEXTF 

FOR A=0 TO 100 

FOR B-0TO4':IFS$(A,B) = " " THENS$(A,B) = "-" 

PRINT#1,S${A,B) 

NEXT B:NEXTA 

FOR X=0 TO 100 - 

FOR Y-0TO l:iFT$(X,Y) = " " THENT$(X,Y) = "-" 

PRINTZ#1,C0;F0R Z-1 TO CO:FOR ZZ=1 TO 4:PRINT#1,D$(ZZ Z) 

NEXTZZ,Z 

PRINT#1,T$(X,Y) 
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NOVEDADES EPYX 




SUBBATTLE 

En CLianto i\ ia otr;i novcdad, se trata 
tic una fabulosa simulation de juego 
de SLibmarino que te trasladanl hasta 
la segunda gucrra mundial... Los 
pocos que lo han visto aseguran que 
ronipe con todo lo estahlecido en lo 
que a simulacioii se refiere. 



i 



BALONCESTO 

Esta vez en directo desdc 
SUNNYVALE (la sede en Estados 
Unidos de EPYX) nos llegan 
muestras de lo que seran sus dos 
proximos bombazos: cl STREET 
SPORTS BASKETBALL (en 
castellano. «baloncesto») y 
SUBBATTLE, una autentica batalhi 
submanna que entusiasmara a todos 
los amantes dc juegos de estrategia. 
En el case deJ balonccsto las fotos 
que te ofrecemos son rcveladoras: te 
veras Iranst'ormado dc golpe en una 
especie de HARLEM GLOBE 
TROTTER, ya que en Lodo 
momento el juego se desarrollara en 
pistas cailejeras. Debcras elegir tres 
coniponentes de tu equipo y sobre 
todo uno de los magnificos campos 
cailejeros de los alrededores... Ojo. 
porque cada cainpo tiene 
caractcrfsticas diferentcs. Corres cl 
riesgo de hacerle graves lesioiies en - 
una de ellas, en la que una enorme 
mancha de acoilc esta debajo de la 
canasta. Tambien deberas cuidar dc 
que los pases que hagas no den 
contra el bordilio... Como era de 
esperar de EPYX. la biblioteca de 
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jugadores es muy ampfia y eada una 
esta dotado dc habilidades difcrcntes 
en el juego. El rcalismo aicanza 
como siempre cotas mas altas. Por 
ejemplo, si el partido es bueno, un 
galo aparcccra en una ventana y 
mirara cl transcurrir de la prueba; 
pero, si baja el nivei, puede que 
cmpiece a bostezar o incluso que sc 
baje de la ventana para ir a olras 
ocupaciones... impresionantc. 



PHM PEGASUS 

Parece que Lucasfilm ha decidido 
dcjar dc estar con EPYX, o por lo 

menos eso cs lo que parece tras la 
aparicion del ultimo tilulo — ^PHM 
Pegasus el destructor— que esta vez 
se lia heclio en colaboracidn eon 
Electronic Arts. Se trata de una 
simulacidn dc guerra marina que se 
desarrolla en la segunda guerra 
mundial y tiene por escenario el 
mundo entero: desde cl 
apresaniicnto y dcstruccion de una 
nave de piratas de los mares del sur 
hasta ia captura de un submarino en 
aguas de Filipinas. 




J 




DEPORTE DE REYES 

Nadie parece haberse enterado de 
que el deporte de los reyes ticne ya 
un juego de ordenadores domesticos: 
se trata de la ultima novedad de 
-Mastertronic: un juego de carreras 
de caballos en la que podras realizar 
las apuestas tan elevadas como jamas 
hayas soiiado. E! juego es de lo mas 
conipleto e incluye desde un book de 
referenda do los cabaNos —en la que 
aparecen incluidos con todo cl 
historial — hasta un ayudante de 
apuestas que to llevara al paddock a 
ver los animales antes de Jas carreras 
y te asesorara sobre la 
transcendencia del handicap de 12 
kilos que le hayan dado a[ caballo 
que eiegiste ganador o colocado. El 
juego incorpora tambien una seric de 
comandos que te permiliran crear tu 
propia base de datos. 



FEUD 

La yccion transcurre por tierias 
medievalcs en el sigio xv. cuando 
auii imperaban los magos, brujas y 
otros seres paranormales... un buen 
monje se dcdica a vagar por ticrras 
inglesas en busca de un manuscrilo 
que le dara la clave de un tesoro que 
le hara inmensamente rico. Bl juego 
esta lleno de eolorido, las tierras 
cstan plagadas de brujas, magos y 
otros seres, los paisajes estan muy 
divcrsificados y el juego esta dotado 
de un sorprcndente realismo gracias 




naav » 

ffHOT 3DV 
REVnUJEH 
CDLEV 

■no HERD 

■aRlLLIG 
ST DP- H FIT 



5PQRT 
QF KIOGS 



a la eieccion de los colores: 
Dicho realismo alcanza incluso la 
sofisticacidn de respetar el corte de 
los trajcs dc aquella epoca. 

KRACKOUT 

Este juego es el prefcrido por 
uuestra Redaccion este mcs, se trata 
de un plagio del Arkanoid (o 
viceversa), pero esta dotado de 
elementos que lo hacen resaltar 
considerablcmcnle frente a este 
ultimo: velocidad de las bolas; 
multitud de efectos; rotacion de 
fases; graficos; opcibn de juego para 
zurdo y diestro; sonido; scrolling 
transparente y ademas todos los 
elementos que tanto lios gustaron de 
Arkanoid: Los hidrillos desprenden 
extraiios objetos y van cambiando el 
juego... sin duda llegara a ser un 
ciasico en su gcnero. 




INPUT 57 



EXPRESS RAIDER 

• ERBE ■ AVENTURA DEL OESTE 

Los vaqueros eran aiin mas duros de 
lo que parece en las peliculas y, si 
no. ver lo dificil que es rescaiar a las 
pei'sonas que se hallan en este tren. 
Deberas hacerte con cl control del 
tren andando por el techo de los 
vagones. Vents como, enseguida, los 
techos se llenan de gente con cara de 
pocos amigos que te atizaran a la 
primera de cambio. Pero los peligros 
tambien vienen de los aires; 
numerosas aves pueden abatirsc 
sobre ti causandotc danos que haran 
bajar vertiginosamente tu indicador 
de fuerza. Otro de los peligros a los 
que deberas enfrenlartc es la 
existencia de vallas colgadas en el 
camino recorrido por el tren; 
cualquier impacto con una de ellas te 
hara perder una vida sin ningiin 
problema. La verdad es que la 
naturaleza ha dotado a nuestro heroe 
de singulares habilidades en la lucha; 
saltos a izquierda y derecha, que 
harian ponerse rojo de envidia a 
BRUCE LEE; tiros que no 
desmerecerian de los de JOHN 
WAYNE en la recordada pelicula La 
diUgencia, de John Ford, o los de 
Alan Ladd encarnando al mi'tico 
Shane en Raices profundus, de 
George Stevens, y enfrentandose al 
siniestro Jack Palance. 




Y, por supuesto, no debemos dejar 
de mencionar las patadas, que 
parecen de caballo... 



Desde luego el LEJANO OESTE 
era para gente realmente dura, y los 
alfefiiques no tenian nada que hacer 
alii. 
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ALIENS 

• PROINSA ■ JUEGO DE SALAS 

Muchos han visto la primcra 
pelicula. titulada ALIEN (sin la letra 
S). La iripulacion de la nave 
NOSTROMO csta siendo diezmada 
por un bichejo con mala cara y 
mucho apetito que se acaba 
inerciidando a toda la tripulacion, 
nienos a una chica, RILEY 
(encarnada por la bella actriz 
norteamericana Sigourney Weaver en 
la version cinemalografica). 
La accion de ALIENS (EL 
REGRESO) se siti'ia unos anos mas 
tarde. Llaman a RILEY para 
investigar un rumor que llega a ia 
Tierra. Al pareccr, centenares de 
bichos, como ios que elia describio al 
volver de su peripio, han tornado 
una base en el cspacio exterior. No 
vamos a contaros el estado en el que 
se lialla el lugar: estos marranos lo 
han llenado de excrementos. Lo que 
ii podemos deciros es que son 
muchos, muy rapidos y muy listos. 
Debes destruir sus excremenlos 
porque si no te cerraran el paso de 
las puerias. 

Mientras tu no puedes pasar por 
todas las puertas, ellos en cambio no 
tienen ese problema y a veces parcce 
que son autenticos fantasmas por el 
modo de aparecer. Los. alienigenas 
milizan un curioso metodo para 
quitarte de en medio: la 
impregnacion. Asi, mientras uno te 
despista. el otro te imprcgna (veras 
el color de tu indicador cambiar 
hasta el rojo, que es igual a dccir 
;ADIOS!). Como siempre, cl equipo 




del que dispones es redueido, pcro 
lambien debes saber que en las 
tareas de grupo lo que mas importa 
es el elemento humano. Tienes un 
equipo de seis personas: Riley, que 
ya ha demostrado su temple; 
HICKS, quizas el mejor elemento 
del equipo (nervios de acero, rapido 
de decision, iucido como pocos...). 
Ei contrario de HICKS es 
GORMAN, el tenientc, para el que 
esta es la primera mision. Tambien 
tenemos a VAZQUEZ, el soldado' 
con mentc fria y calculadora; por 
ultimo, BISHOP, cl oficiai androide 
(no creais ni por un momento que 
por ser androide no van a tratar dc 
mcrendarsclo Ios ALIENS). Para 
llevar a cabo la mision todos Ios 
micmbros del equipo llevan el 
Mobile Tactical Operation Bay. 
Como es evidente. juegas a la vez 



con Ios seis personajes; en el MTOB 
veras representado el rostro del 
miembro de la tripulacion con el que 
te hallcs; la habitacion en la que esta 
cada miembro, el estado fisico (la 
longitud de la barra) y cl psicologico 
o de impregnacion (el color de la 
barra). Como Ios ALIENS entran y 
salen como Pedro por su casa, una 
alarma te indicara si en la habitacion 
en la que cstas hay o no ALIENS. 
El juego viene acompahado de un 
mapa sin numerar. ' 
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ARKANOID 

• IMAGINE ■ JUEGO DE MUROS 

Hasla que aparccc la tipica pantalla 
de presentacion de una nave cs 
probable que todos penseis que se 
trata de un jucgo do marcianos mas. 
En cuanto dels a la barra 
espaciadora vereis que esto no es 
verdad, pues se trata de un nuevo 
universo en el que os va a ser muy 
dificil Hegar a la ultima pantalla. 
Arkanoid c^ otro tipo de dasicos: los 
de MUROS y BOLAS. Se trata 
basicamente de destruir barreras de 
ladrillos con una pala y una bola, 
Realmente el juego puede parecer 
soso hasta aqui: no os fieis 
demasiado, ya que inciuvc una serie 
de variantes que aumentan 
notahlcmcntc su adictividad y lo 
hacen solo aplo para los virtuosos de 
la paianca. Conforme vayas 
dcstruyendo barreras veras como a 
menudo sajen objetos de los lugares 
que ocupaban los ladrillos: cl color 
de los objetos es lo que determina lo 
que va a suceder cuando te acerques 
a ellos. 

Puede que temporalmeate te halles 
inmovilizado y pOL' tanto veas como 
tu esturridiza bola desaparece por cl 
fondo, para quilarlc una vida mas. o 
bien que tu raqueta se duplica de 
taniano. o tambien que sc convierte 




en pegajosa, haciendo que las bolas 
se te queden pegadas y 
pcrmiticndotc mas facilmente 
apuntar para destruir zonas dificiles. 
En la parte superior de la pantalla 
veras tambien cbmo aparecen unas 
extrarias naves que, a menudo, 
vendran a romper los planes que 
hagas accrca de ta trayectoria de las 
bolas, ya que la colision de la bola 
con las naves cambia por complete la 
orientacion de la pelota. 
El juego pcrmitc todos los efectos 




posibles y te recomendamos mucho 
que uses y abuses de ellos ya que, a 
menudo. al hacer incidir la bola en 
diagonal lograras destruir dos 
ladrillos a la vez (o a vcccs muchos 
mas si sc mete en un hueco). 
Mientras que si los tiros son 
horizontales desaparecera 
simplcmentc cl primcro de los 
ladrillos, Otra recomendacidn cs que 
te cuides de trabajar una zona del 
muro. Es muy importante para que 
asi veas como sc pucdc tunibar casi 
enteramcnte un muro dejando a tu 
traviesa bola botar entre el frontis y 
la parte superior. 
El jucgo incorpora tambien una 
variante peculiar at existir en cada 
pantalla un objeto que cae y te abre 
una trampilla en la pared lateral por 
la que accedes a la pantalla siguiente 
sin tcner que acabar la anterior. 
Como conclusion, solamente nos 
cabe expresar que este juego es 
superadictivo. 
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Software 




SHORT CIRCUIT 

• £RBE ■ JUEGO DE SALAS 

Tras una exhibicion de las 
capacidacles de los robots aplicados a 
!as artes militares. un robot de ]a 
serie SAINT queda parciahnente 
afectado por un rayo de lal inodo 
que el robot cobra misteriosamente 
vida propia y huye para salvar sus 
chips de !os cjentificos. 
NUMERO CINCO — ya que asi es 
como se identifica al robol— esta 
acosado por tres peJigros. Uno, los 
militares que lo quieren eliminar por 
el considerahiemente valioso y 
sofisticado armamento que llcva a 
cuestas, el segundo, los cicntificos, 
que como hemos dicho lo quieien 
Hmpiar para descubrir ei milagro que 
se ha operado en la maquina, y, por 
ultimo, los demas robots que tienen 
orden de apresarle o aniquilarle y 
disponcn de un autentico arsenal 
para llevar a cabo tan fatidica 
mision. 

Nuestro amigo NUMERO CINCO 
precisa de tres elementos para poder 
salir del edificio: el hardware 
correspondieiite al RAYO LASER, el 
hardware correspondiente al salto y 
;1 manual tecnico que le pcrmite 
:rear un nuevo e identico SAINT. 
El edificio en cl que se hallan esta 
slagado de sistemas de seguridad 
:ada cual m;is sofisticado pero 
luestro simpatico robot es muy listo 
r tiene acceso a las computadoras do 
SOVA. 

Dentro dc la computadora se hallan 
res tipos de programas: uno de 
)usqueda, otro dc salto y otro de 



laser. Estos dos ultimos deberan 
estar activados para poder funcionar 
y por otra parte la memoria de 
NUMERO CINCO sol amenta permite 
cargar dos programas a la vox, asi 
que, como comprendcrcis. debeis de 
cargar en primer lugar el programa 
de SEARCH (busqueda). En lo que 
al hardware sc refierc, NUMERO 
CINCO unicamente puedc llevar tres 
objetos a la vez, asi que ojo con lo 
que Uevais. Los objetos son faciles 



..-o 






de haliar y cl linico problems posible 
esla en los que se hallan dentro dc 
los ficheros. Dicho sea dc paso, casi 
siempre los objetos mas importantes 
se encuentran en el interior de 
ficheros. 

El juego esta plagado de PASSCARD 
(tarjetas dc pases), PASSWORD 

(palabras claves) 
que tc permitiran 
acceder a la 
niayoda de las 
salas, para otras 
necesitaras un 
manojo de Haves 
(BUNCH OE 
KEYS). EL 
PASSWORD 
te servira para 
poder entrar en 
a zona mas 
rotcgida deE 
edificio 
y para apagar 
y encender cl 



ordenador pero, jojo!, cada ocho 
minutos deberas volvcr a cncenderlo, 
ya que se produce un cambio de 
guardia y se daran cuenta de que el 
ordenador centra! ha sido 
manipulado. 

EI juego tiene una excelente 
eombinacjon de colores en las 
pantallas que corresponden a la parte 
del exterior de la factoria. Es muy 
agradable y resulta facil elaborar un 
map a. 

En rcsumcn, CORTOCIRCUITO 
tiene todo lo que se precisa para 
constituirse en un autentico 
cxito. 
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THE GOONIES 

• ERBE ■ ARCADE 

MAMA FRATELI no sabe el lesoro 
que tiene debajo de sus pies, 
tampoco andan del todo seguros 
nuestros amigos ios GOONIES, que 
parece que andan un poco 
despisiados y que para salvarse de la 
seilora gorda dcbcn colarse en la 
chiinenea. Esle ha sido un jucgo 
precursor en !o que sc refiere a 
posibilidad de jugar a dos 
ayudandose uno con otro y siendo 
cada jugador autonomo. 
Ei jiiego sc basa constantcmente con 
Ea ayuda de ios dos jugadores y 
obliga a menudo a reiizar un 
esfucrzo intclectual: os contamos 
como aicanzar y superar las pantallas 
7 y 8, que a nuestro entender son las 
mas dificiles. 

Los pcrsonajes estan muy bien 
caracterizados. Queda palcnte la 
avaricia de la MAMA, avancia que a 
menudo servira para nianteneria 
entretenida mientras uno de Ios 
nueslros hace de las suyas. No hace 
faita decjros que el juego tiene ocho 
fases por las que pasaras enlre 
peligros de lo mas diverso: desde el 
riesgo dc ahogarsc. ser aniquilado 
por un pulpo — esperamos que asi no 
sea, ya que os damos la solucion de 
esta fase — a ser machacado a 
porrazos por la MAMA o por 
cualquiera de sus hijos. 
El feliz dcscnlace es lapasta que se 
Ilevan al bolsillo nueslros amigos 
ante la mirada atonita de Ios 
adversarios. 

Un juego impresdndible en cualquier 
ludotcca que se precic y que bara las 
delicias dc Ios que no lo conocian 
antes. 



TRUCOS 

PANTALLA IMUMERO 7 

1. Los GOONIES van a la escalora. 

2. Uno sc va arriba a la izquierda y. 
gracias al trampolin, stdta y sc agarra 
a la cadena arriba a la izquierda, 
mientras que abajo una caja cae al 
suelo. 

3. Uno de Ios GOONIES se queda 
en la escalcra, el otro se va abajo. 
Debe empujar la caja hasta la altura 
de la cadena y muy deprisa saltar 
sobre la misma para agarrarse a la 
cadena. 

4. El que se ha quedado en la 
escalera sube, salta sobre el 
trampolin lo mas a la izquierda 
posible, para quedar cerca del pulpo. 
A estas alturas el nivel del agua ya 
ha bajado; pucde saltar encima del 
pulpo sin morir. El otro COONIE 
puede bajar por la cadena y va hasta 
su compadre... Pasan entonces a la 
fase 8. 



PANTALLA NUMERO 8 

L El mas pequeno va a la palanca 
que csta junto a la MAMA. 
2. Esta palanea abre el pasadizo. El 
grande va a aceionar la cadena en cl 
medio a la izquierda. 




3. El pequeno sube y pasa por el 
pasadizo para aceionar la cadena del 
niedio-izquierda. 

4. El grande baja y acciona la 
cadena de abajo-izquierda. 

5. El pequeno baja, 

6. El grande sube hasta el cofre 
arriba a la derecha y lo empuja al 
mar. El dinero se hunde y la MAMA 
se ahoga. 

7. El peque acciona la cadena de 
abajo-izquierda. 

8. EI grande va hasta la palanca que 
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Software 





FIRETRACK 

• PROINSA ■ ELECTRIC DREAMS 

Los juegos de marcianos siempre 
ticnen unos escenarios raros, 
planetas lejanos, civilizaciones 
pcrdidas y amenazadas. A meniido 
muy buen iuslrumental para poder 
defenderse y repeler el ataque de los 
malos. No vamos a contaros cs(a vez 
la pelicLila que hay alredcdor de esta 
nueva STARWAR. Como ya os 
sLiponeis debeis de pegar tiros a todo 
lo que se mueva ddante vuestro, la 
cosa va de tiros y debereis dar 
muchos mas de los que eslais 
acostumbrados si quereis salir ilesos 
de cste recien salido juego de 
marcianos.., Los graficos son buenos 
y quizas io que mas resalte scan las 
raras y alle/iigenas combinacioncs de 
colores del planeta en el que se estan 
viviendo tantos conflictos... Los 
ataques a los que te vcras expueslo 
cobran aires y pinta de lo mas raros 
y extranos: a veces seran solo naves 
sueltas o bien podraii ser autenticas 
colmenas de naves con forma de 
caracol que se te ccharan encima y 
que al recibir tu disparo se 
convertiran en mil y una bolas 
morti'feras. 

A los que vayan a iiiteiitar la 
aventura de acabar este juego, la 



habia dondc estaba la MAMA v NO 
LA TOCA. 

9. El pcque va a! montacargas, del 
mcdio-arriba. 

10. El grande acciona la palanca. 

1 1. Hi pequc salta a la derecha y va 
ha5;ta el fondo. 

12. El grande le alcan/:a. 

13. Te has convertldo en un GOONIE. 

The Goonies — juego inspirado en 
la exitosa pelicula del mismo 
titulo producida por el famoso 
«mago del cijie» Steven Spielberg — 
es el ti'pico programa impredecible 
e imprescindible que le hace a 
uno sentirse protagonista de 
hazanas mas bien propias del 
mismisimo Indiana Jones. 
En cfccto, al introducirlc en su 
trama, rccreas las siluaciones de 



iinica recomcndacion que se les 
puede hacer es que sc queden en el 
medio de la pantalla. En efecto, el 
juego pennite una mobilidad hacia la 
derecha. izquierda. adclanle, esto te 
sera vital cuando te vengan varies 
encmigos a la vez, ya que mientras 
disparas podnis ir echandote hacia 
atras ganando asi ticmpo para 
destruirlos a todos. 



peligro, te conviertes en heroe 
«cabailcresco-andante» sin 
caballo, luchas contra sordidas e 
ignotas Icgiones de fuerzas del 
mal. juegas al gato y ai raton 
con tus cnemigos... 
Estas puedcn ser algunas de las 
razoncs y emociones que 
justifiqucn la visualizacion de 
este inleresante arcade de 
aventuras de peliculas. Recordemos 
la trama de esta aventura. 
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GOLPE EN LA 
PEQUENA CHINA 

• PROINSA ■ JUEGO DE SALAS 

La historia no es muy sencilla: un 
mandarin llamado LOPANestJi 
intentando calmar a un dcnionio, y 
para ello precisa dc un saciificio: 
debe casarsc con una joven de ojos 
verdes y postcrjormente sacrificarla. 
Las novias de nacstros dos heroes 
(en la pelicuia Jack Burton y Miao 
Yin) son raptadas para tal fin y 
ilevadas al iinperio del mandarin LO 
PAIN, que so halla debajo del barrio 
cinno de SAN FRANCISCO. 
Aquf es donde empic/a el juego: 
JACK, WANG y otro acompanante 
llamado EGG pcnetran en el 
universe de LO PAN para rescatar a 
sus amigas. Durante el juego vas a 
controlar los tres personajes. Cada 
uno tcndra una serie de habilidades 
que tendras que saber utilizar en 
eada memento. Jack luchara al 
principio solo con los punos, aunque 
iuego si llegas suficientemente Hondo 
en c! muno de LO PAN encontraras 
una pisiola con municion casi 
ilimitada esparcida a su alreeiedor. 
WANG es un experto en ARTES 
MARCIALES y hara las delicias de 
todos los amantes de juegos dc 
porrazos: domina lodos los golpcs de 
las artes y de vez en cuando veras 
que maneja las espadas que se 
encuentra en el camino con la 
maestria de los miticos NINJAS. 
EGG, el ultimo de los aventureros, 
cs un niago poderoso que hace 
brotar de sus dcdos rayos mortiTeros. 
cuyo linico defecto es que duran muy 
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poco. Veras que conforme vayas 
penetrando en la madriguera 
aparecen botellas de pocion magica 
que rcfuerzan su poder o alargan la 
duracion de sus rayos. 
En la parte inferior de la pantalla 
veras un indicador de estado dc los 
tres personajes. Al scr un programa 
con connotaciones de tipo 
ORIENTAL el indicador de fuerza 
viene dado por el signo del YING- 
YANG 

El juego se desarrollara en 4 aiveles 
cada cual mas dificil que el anterior: 
el primcro se ubica en las calles de 
CHINATOWN: en este nivel muy 
pocas veces encontraras pistoleros, 
casi siempre seran luchadores de 
artes marciales a los que deberas 
plantar cara. 

Cuando te cruces con un pistolero, 
echa a correr ya 
que no te qucda 
mas opcion. 
En el segundo 
nivel, ya en las 
alcantarillas, 
deberas luchar 
contra ■ 
monstruos. Te 
recomendamos 
que suites por 
encima de ellos 
ya que, como 
veras si lo 



intentas, son imposibies 
de ganar en combate. 
Ya en el cuartel de LO PAN deberjts 
derrotar a extranos seres que llcvan 
sombreros de ala ancha antes de 
poder pretender alcanzar al dueno 
del lugar. Si consigues esto quizas 
puedas penetrar en la habitacion 
donde se prepara la boda. En ella 
veras como LO PAN se halla en 
suspension en una nube. Derrotar 
sus guardacspaldas sera la ultima 
prueba antes de la lucha cuerpo a 
cuerpo eon el. La lucha con el es la 
prueba mas dificil, ya que LO PAN 
tiene poderes sobrenaturales que le 
permiten regcncrarsc como cl AVE 
FENIX. 
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EXPLORER 

• PROINSA ■ ELECTRIC DREAMS 

Hay hombyes que ticncn muy poca 
fortuna: baste como ejcmplo 
nombrar d caso del heroe de cMc 
juego. Haceos a la idea dc que se ha 
quedado mas solo que la una en un 
hostil paramo del planeta 
ESMERALDA. Todo por no 
comprar una aeronave nueva... claro 
que. sin duda. es ya mucha suerte cl 
habcr c|uedado con vida y todavfa le 
queda una oportunidad de saivarse: 
... buscar y encontrar los nueve 
Irozo^ en c|ue la nave ha quedado 
segmentada tras el accidcnte. Donde 
realmente empieza la mala pata de 
nuestro protagonista es aqui. porquc 
ei pianeta tienc 40 billones de 
lugares en los que pueden hallarse 
los restos de la nave. 
El juego gana en complejidad a 
partir del memento en que comienza 
la exploracion. Un potente y 
sofislicado equipo te ayudara a 
encontrar los rcslo^ de tu aeronave: 
un Jet portatil te ayudara en tus 
dcsplazamientos; un sonar de objetos 
te ayudara a localizar los segmcnlos 
utilizando la onda dc refraccion de 
los mismos y avcriguar la distancia 
aproximativa a la que se hallan. El 
radio vector, la brujula, la pistola 
laser y las betas de monte te seran 
tambien sin duda imprescindibles 
para andar por la jungla dc csle 




lejano planeta 

llamado 

ESMERALDA, 

que constituyc 

apenas un punte 

perdido en medio 

de la inmensidad 

del universe 

sidoraj. 

Verdad es que 

este planeta 

desatia eualquier 

inteligencia 

coRocida. A 

menudo debenis 

utilizar radiol'aros 

para guiarte per cl llamado metodo 

dc triangulacidn. Procura andar con 

cautela por el planeta, ya que 

descubriras a menudo oscuras 

manchas en la selva que tras hacerte 

mil y una preguntas referentes a tus 

gustos, sucfios, etc., le llevaran a 

un exlrano lugar: jOJO!!, porque 

como buen explorader — descubridor 

de tierras iejanas — deberas darle tu 

un nombrc al lugar, 

Procura andar 

con sumo cuidado 

al rcalizar este 

«bautize» ya que 

puede que te 

arines un autentico 

follon en cuante te 

teletrasporten 

cuatro o cinco 

veces. 



Quizas lo mas sorprendcnte del 
juego sea cl escrupuloso cuidado con 
que se han tratado los graficos, sc ha 
logrado crear un curioso efecto de 
profundidad por medio de los 
F/LLS (rellenos). En los lugares por 
los que iras vagando pedras utiiizar 
un zoom para busear mejor las 




nueve piczas... 

Se trata, como puedcs ver, de un 
programa superlative. Asi que, como 
un buen Robinson Crusoe sideral, 
animate y empieza cuanto antes la 
busqueda, ya que este juego sin duda 
se lo merece plenamcnte. 



ANfMACfON 


9 


INTEBES 


10 


GRAFfCOS 


10 


COLOR 


9 


SONfDO 


8 


TOTAL 


46 
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Deseo contactar con usuarios del C-64 
para intercambio de programas ultimas 
ncvedades. Maxima fiabilidad en las 
reproducciones. Rafael Navarrete Ruiz. 
C/ Bordadoras, 3 bajo-C. 41008 Sevilla. 

Vendo unidad 1541 , con un ano de uso 
aprox. en perfecto estado por cambio a 
una unidad superior, por 40.000 pts. 
Regalo los siguientes programas: Su- 
per base 64, Easy script y una hoja de 
calculo, asi como otras utilidades y al- 
gunos juegos. Interesados remitir 
oferta a: Fco. Javier Salcedo Sierra. C/ 
Alto de San Isidro s/n. 49002 Zamora 
Tl: (988}5277B2. 

Vendo ordenador C-64 mas unidad de 
cassette C2N mas un monton de revts- 
tas y juegos, todo al precio de 49.000 
pts. Vendo tambien ensamblador lla- 
mado HESMON a 3.000 pts. y cartucino 
Simon's Basic a 6,000 pts. Miguel Ta- 
llon Biarge. C/ Ribera del Beiro bl. 7 
3.^B. 18013 Granada. 

Intercambio juegos en cinta para C-64, 
todos ellos en turbo. Me interesa el Si- 
mon's Basic. Mandar lista: Juan C. Lo- 
pez. Pgno/La Paz, 2, 6.^', B. Gurutzetak- 
Baracaldo. Bizkata 48900. 



Intercambio programas en disco para 
el C-64, poseo sobre 1.000 (entre las 
cuales ultimas novedades), se asegura 
seriedad. Mandar lista. Antonio G. Ro- 
driguez. A. Postal: 3032. 36200 Vigo. 

Cambio todo tipo de programas [jue- 
gos y utilidades} en cinta para C-64. Si 
alguien sabe jugar o tien.e instrucciones 
de DRUIDS; desearia cambiarselas o 
comprarselas. Oscar Garcia Gonzalez. 
C/ Olmedp, 40 l.'^F. Valladolld 47013. 

Intercambio programas para el C-64. 
Todos ellos en turbo. Poseo mas de 
500. Alvaro Ginel Diez. C/ Area Real, 1, 
3.°, D. 47013 Valladolld. 

Vendo C-128-D por cambio a PC. Ade- 
mas incluyo: instrucciones de gran 
cantidad de juegos. Abundantes revis- 
tas sobre Commodore. Curso de pro- 
gramacion (BASIC BASICOK Cuatro to- 
mos de Informatica Aplicada, 8 prime- 
ros tomos de taller de Informatica. Ma- 
nual del usuario. Manual de la unidad 
de discos 1571. Cuatro cassettes con 
programas. Dos joystick Quick Shot II. 
Y otras cosas mas, Manuel Jimenez Ji- 
menez. C/ Alcalde Ortega Munoz, 6, 2° 
izq. Cp: 29014. Malaga. Tl: 262220. 

Vendo CBM-64, Datacassette, 200 pro- 
gramas en cinta, 25 revistas. Interface 
para hacer copias de seguridad entre 
datacassettes. Unidad de discos 1.571 
con garantia, 50 discos con 300 progra- 
mas, el libroCBM 1571-1570. El gran li- 

ee INPUT ' 



bro Floppy de data-Becker. Y otras co- 
sas mas. Precio a convenir. Llamar a 
Paco de Barcelona. Tl: 2138549. 

Vendo equipo completo compuesto 
por C-64, datacassette C2N, libros y 
manuales en espanol , guia de referen- 
cia, interface copiador, joystick Ouicks- 
hot II, programas Logo, Pascal, Simon's 
Basic II y juegos originales. Tambien in- 
cluyo disco de demostracion y utilida- 
des. Negociable. Jordi Aljama Deulo- 
feu. C/ Del Comte Borrell, 4, Baixos 1 .^ 
Sant Celoni. Barcelona 08470. 



Cambio programas de todo tipo en 
cinta o disco para el C-64. Poseo bue- 
nos y novedosos titulos. Escribir a : Vi- 
cen^ Vila i Tomasa. C/ Socttat, 28, ^.". 
C. Terrassa. Barcelona. 

Vendo juegos para Commodore, ulti- 
mas novedades. Tambien compro los 
que me puedan interesar. Compro uni- 
dad de disco 1541 en buen estado a 
cambio de una larga lista de programas 
(poseo mas de 1.000) abonando, si es 
necesario, 10.000 pts. Tl : 4229736 de 
Barcelona. Isidro Moron. 

Cambio programas para el C-64 en 
cinta como: Simon's Basic, Gauntlet, 
Uridium, Commando, Infiltrator... por 
programas como: Aerojet, Pascal, Ace 
of Aces, Silent Service... etc. Enviar lista 
a: D. Almagro, Plaza Guillermo, 4, 4.°, 
I.''. Andorra la Vella. P. de Andorra. 

Necesito instrucciones juegos C-64. En- 
via lista, precio y telefono. Contesto to- 
das las cartas yofertas. Pref. Barcelona. 
Tambien compro cartuchos utilidades, 
tipo freezer e interface MIDI.G.D. Apdo. 
93045 Barcelona 08080. Tl: (93) 
2179080. 



Compro Impresora para C-64 directa y 
por friccion, por precio modico. Tam- 
bien intercambio programas, enviar 
lista y ofertas a Miguel Angel Gallardo 
Garcia. El Drago bl. 11, 3.°, B. 29017 Ma- 
laga. " 

Cambio juegos para C-64. Interesados 
llamar o escribir: Santiago Sebastian. 
C/ Mayor, 52 1.^ D. Torres de la. Ala- 
meda. Madrid. Tl: (91)8858164. 

Vendo C-128 cassette C2N, Joystick 
spectravideo, 13 cintas de juegos, 40 
revistas de Informatica, 3 iibros edito- 
rial DATA-BECKER para C-64/128, pro- 
gramas de utilidades. Disco sistema 
Op. CPM PLUS, Simon's Basic. Javier 
Anton Moran. C/ El IMilagro, 26. Torre- 
lavega. Cantabria. Tl: (942) 881254. 

Cambio programas para el C-64 en 
cinta, Tengo novedades en juegos y to- 
dos son de calidad. Tambien tengo uti- 



lidades. Jorge Arias Carrera. C/ RioVal- 
carcel, 1, b.", B. 24400 Ponferrada. 
Leon.TI: (987) 401258. 

Vendo/cambio programas para C-64. 
Poseo alrededor de 700. Tengo unidad 
de disco y cassette. Fco. Javier Cama- 
cho Garcia. Bl. 12D, 8.", 6.". Algeciras. 
Cadiz. Tl: (956) 664414. 

Cambio programas por HARDWARE, 
interesandome especialmente C-64/ 
1541, aunque aceptaria todo tipo de"' 
aparatos de cualquier marca. Desde or- 
denadores a transformadores pasando 
por consolas. Cantidad de titulos. A 
convenir. No importa el estado. Tam- 
bien vendo los juegos. Marcos Miguel 
Huerga Muiioz. C/ Candelaha Ruiz del 
arbol, 55 4.", p 3.^ A. 49003 Zamora. Tl: 
(988) 528864. 

Vendemos juegos para el C-64, a buen 
precio, aprox. 500 pts. c/u. Tales como: 
Ram bo, Baloncesto, Terra Cresta, 
Speed King y muchos mas. Poseemos 
mas de 50 juegos diferentes. Llamar a 
estos telefonos: (93) 4218145 Javi o 
(93) 3338683 Jose. 

Intercambio programas dejuegos y uti- 
lidades para C-64 y C-128. Solamente 
en disco. Carlos Iglesias Iglesias. C/ 
Suarez Naranjo, 78, 6°, D. 35004 Las 
Palmas de G. C. 

Cambio programas (juegos, utilida'des) 
en cinta para C-64. Por favor, enviad 
lista. Fco. de los RIos Rodriguez. C/ Cor- 
doba, 1, 2^, D. 47013. Valladolld. 

Intercambio programas en disco para 
C-64, especialmente utilidades, gestion 
y aplicaciones. Poseo una programo- 
teca bastante interesante. Francisco. 
Apdo. 25063. Barcelona. 

Vendo Vic 20 por 15.000 pts, con cas- 
sette, manual y juegos; o bien cam- 
biado por un ZX Spectrum con cas- 
sette. Alejandro Domene Pozuelo. Tl: 
(91) 7159990. 

Intercambio programas para C-64, 
tanto juegos como utilidades. Daniel 
Vizmanos Perez. C/ Poeta Rosalia de 
Castro, 25 3B. Zaragoza 50«15. Tl: 
514033. 



Vendo C-64. Precio convenir, tambien 
cambio programas del mismo con,al- 
guien de Madrid. Manuel Rico Re- 
condo.Tl: (91) 4414215. 

Deseo formar un grupo en Cartagef='a y 
sus alrededores para cambiar juegos, 
informacion, etc. Jose Manuel Palao. 
C./ Hidalgo de Cisneros, 5, 4.^ B. 30205 
Cartagena. Murcia. Tl: 519596. 
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COMICS 



fforuiti 



IlNCO MINUTOS ANTES DE COMPRAR UN JUEGO A 875pt3s. 
-. ECHALE UN VISTAZO A ESTOS JUEGOS DE 875r<«.^ 




VERSION CASSETTE 



SO F T W A R E 



»0 SOFTWARE DIVI5IOM Pdseo dc ii Castellana, 141 28046 Madrid 
«5S3C;m Tel Earna 309 3J 65 Telex: 22690 ZAFIRE 



SIGUENOS EL JUEGO. 



